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6 GUIA DEL HACKER: 
ALIEN HIGHWAY 


Speedlock es un antiguo sistema 
de protección que, sin embargo, 
aún sigue siendo un enigma para 
muchos lectores, En nuestra guía 
del hacker de este número nos 
saltamos la protección y 
encontramos los pokes más 
interesantes. 


1 4 DISEÑO DE 
SPRITES 
A diferencia de otros ordenadores, 
el Spectrum no posee en su 
sistema operativo ninguna rutina 
de control de sprites. Por eso 
puede resultar de gran utilidad la 
que os proponemos, basada en las 
interrupciones. 


2 64 COLUMNAS EN 
PASCAL 


Quizás la peor característica del 
excelente Pascal de Hisoft sea su 
mala presentación en pantalla, 
con sólo treinta y dos columnas. 
Manuel Arana resolvió el 
problema incorporándole una 
rutina de 64 columnas. 
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RS-232-C (1) DE UDGs CODIGO MAQUINA 
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NOVEDADES 
EN SONIMAG 


Por fin hay fecha definitiva para el lanzamiento del nuevo 
ordenador Sinclair construido por Amstrad. El Salón Interna- 
cional de la Imagen, el Sonido y la Electrónica, SONIMAG, 
que se celebrará en Barcelona del 15 al 21 de este mes, será el 
escenario de la presentación del Spectrum + 2, del que espera- 
mos poder ofreceros nuestras primeras impresiones en el pró- 
ximo número de Todospectrum. 

Durante el SONIMAG hará también su primera aparición 
en público el Amstrad PC, compatible IBM con el que la 
empresa de Alan Sugar se incorpora a la tendencia imperante 
en el mercado de ordenadores personales. 

Por otra parte, son noticia las recientes declaraciones de 
Sir Clive Sinclair a la prensa especializada del Reino Unido, en 
las que aporta algunos datos sobre el pasado reciente de Sin- 
clair Research. «Si Alan Sugar puede obtener beneficios de él 
—afirmó refiriéndose al Spectrum— pues fantástico, pero noso- 
tros estábamos perdiendo dinero y eso no tenía sentido». Sir 
Clive achacó el escaso éxito comercial del QL a la utilización 
del microprocesador 68008: «Yo deseaba realizar el proyecto 
que originó el QL partiendo del Z-80, pero Nigel Searle y parte 
de los ingenieros quisieron desarrollarlo basándose en el 
68000. Lo cierto es que no había nada que pudiera hacerse con 
el 68000 y no con el Z-80». 

Y puesto que hablamos del QL, deciros que, como ya 
hicimos en agosto del año pasado, hemos decidido dar unas 
cortas vacaciones (hasta noviembre) a nuestro habitual Suple- 
mento QL. 


TODOSPECTRUM Œ 


EULA DEL HACKER 


ALIEN 
niIGHWA Y 


En esta ocasión nos enfrentamos 
cn la guía de Hackers con el progra- 
ma Alien Highway. Se trata de la se- 
gunda parte del conocido High- 
way, Encounter. El juego en sí 
es muy parecido a su predecesor, y las 
diferencias más importantes son que 
en esta ocasión disponemos de un 
único «Vorton» cuya energía va dis- 
minuyendo cada vez que somos al- 
canzados por un alienígena, y quelas 
pantallas se suceden en un orden 
aleatorio. El objetivo del juego es 
bastante simple, hay que salvar la tie- 
rra de la dominación de los invaso- 
res. Para ello disponemos de un Te- 
rratron, que parece que es el únicoar- 
ma con el que podremos conseguir- 
lo, Tendremos que irempujándolo a 
lo largo de una autopista e ir cargán- 
dolo durante el camino en las siete 
estaciones regeneradoras existentes. 

Lo primero que llama la atención a 
un hacker que pretende adentrarse 
en este programa es que después de 
un par de bloques normales aparecen 
los clásicos tonos de sincronismo de 
los turbos pulsados que popularizó 
en otra época Speedlock. A la 
vista de esto es posible que la mayor 
parte de este artículo se centre en la 
lucha contra la protección. Pero no 
hay que adelantarse. 

Empezaremos como siempre por 
lo más sencillo, cargamos el primer 
bloque y pulsamos Break. El pro- 
grama se para. Intentamos listar y 
aparece el clásico perfil del listado 
con tinta y papel del mismo color. 
Cambiamos el color de la tinta para 
poder ver el primer número de línea 
y nos encontramos con que como ca- 
bía esperar tiene el número cero. Pa- 


ra cambiarlo hay que pokear el se- 
gundo byte del área del programa 
BASIC. La dirección absoluta de- 
pende de los periféricos que estén co- 
nectados, Si queremos referirlo a la 
variable PROG deberemos hacer 
POKE PEEK 23635+256*РЕЕК 
23636+1,1. Con esto ya podemos 
editar la linea. Lo hacemos y con mu- 
cho cuidado de no volver a introducir 
la línea vamos borrando los códigos 
de cambio de color para poder ver el 
listado de la línea. 
Sorprendentemente contiene una 
llamada USR con un número de siete 
cifras. Evidentemente tiene que estar 
cambiado, y para averiguar el verda- 
dero valor tendremos que mirar cuál 
es el número codificado a continua- 
ción, Borramos del todo la linea que 
estamos editando (si pulsáramos EN- 
TER volveríamos a introducirla en el 
programa destruyendo el auténtico 
valor) y cargamos el monitor. 
Comenzamos a analizar con cui- 
dado la codificación del programa. 
Nos encontramos con los cambios 
de color, los códigos de las instruc- 
ciones BASIC y al llegar al USR están 
los códigos ASCII del número de sie- 
te cifras, el dato + OE que indica el 
comienzo de la verdadera codifica- 
ción del número y a continuación los 
cinco bytes que nos interesan. Pero 
ni siquiera es la codificación corres- 
pondiente a un número entero. Po- 
dríamos intentar decodificarlo a ma- 
no, pero lo más cómodo es modificar 
el programa desde el monitor para 
que еп vez de llamar а esa dirección 
la escriba en la pantalla. Hacemos es- 
to y el resultado es que la dirección es 
23829.1. El hecho de que no sea en- 


tero es solamente para dificultar un 
poco más su interpretación. 
Pasamos a esta dirección teniendo 
en cuenta que el interface 1 desplaza 
todo el área BASIC unos cuantos by- 
tes hacia delante. Nada más comen- 
zar a desensamblar nos encontramos 
con algo que no parece un programa 
Está lleno de códigos # DD que el 
MONS desensambla como NOP, 
pero que sabemos que corresponden 
a una forma de manipular el registro 
IX como si se tratara de dos registros 
de ocho bits. La forma de hacerlo es 
colocando el código +DD y a conti- 
nuación la operación que queremos 
hacer con el registro IX pero referida 
a HL. Así sí ponemos LD A,L lo que 
hace en realidad es cargar en el acu- 
mulador el byte menos significativo 
del registro IX. Además nos encon- 
tramos con muchas instrucciones 
que no tienen sentido como LD B,B 
etc. La principal característica de este 
tipo de programas es que están escri- 
tos para que no se entiendan. Nos ar- 
mamos de paciencia y seguimos lo 
que hace paso a paso. Parece que lo 
más importante es que coloca la pila 
en #FFF8 y luego la reconstruye para 
volver al BASIC. Para comprobar si 


realmente esto es lo único que im- 
porta probamos a borrar toda la me- 
moria, hacer un CLEAR en la direc- 
ción 65535 y cargar el programa sal- 
tándonos el primer bloque. Todo 


El primer bloque del 
Programa contiene una 


llamada USR con un 
numero de siete cifras. 


funciona perfectamente, de lo que se 
deduce que este primer bloque sólo 
sirve para despistar. 

Pasamos al segundo bloque. Este 
ya no se puede parar de una manera 
tan simple como el anterior. El pul- 
sar Break no sirve para nada, y está 
preparado para que el Merge no 
funcione. Habrá que utilizar méto- 
dos más drásticos. En estos casos mi 
sistema preferido es el siguiente: pri- 
mero se carga el monitor, se hace un 
LOAD*”” y se lee solamente la cabe 
cera. Con esto se consigue que las va- 


riables del sistema tomen los valores 
que indican la longitud del progra- 
ma. Por último entramos en el moni- 
tor y escribimos un programita que 
carge un único bloque de datos sin 
cabecera a partir de la dirección de 
comienzo de la memoria de progra- 
ma, de esta manera conseguimos te- 
ner en memoria el programa exact 
mente como si se hubiese grabado 
sin autoejecución. 


Este segundo programa luce en su 
primera línea el nombre de la protec- 
ción. Es Speedlock. Este es uno 
de los sistemas más antiguos y que 
más veces ha sido utilizado. Por esta 
razón, a no ser que hayan cambiado 
algo, no ofrecerá muchos problemas 
el llegar hasta el juego. De todas for- 
mas explicaremos paso a paso cómo 
funciona. 

Lo primero es el listado BASIC. 
Está lleno de caracteres de cambio 
de color que dificultan el listado. 
Además todas las líneas tienen el 
número cero, con lo que no po- 
dremos editarlas a no ser que 
las pokeemos antes. Por esto es 
mejor analizarlo desde el mo- 
nitor. Nos encontramos con 
que lo único que hace es un 
montón de POKEs en las 
variables del sistema en los 
que por supuesto no coin- 
cide el número codificado 
en ASCII con el auténti- 
co valor del dato que es- 
tá detrás del dato #OE, 
lo que realmente hace 


es POKEar en la pila la 


10 CLEAR 64255: LET n=64256: R 
ESTORE 

30 FOR i=200 TO 240 STEP 10 

40 READ а%,а: LET s=0 

50 FOR ісі TO LEN a+-1 STEP 2 

60 LET d=16* (CODE a+ (j)-48-7*( 
at (j) >"9")) +СОрЕ at(j+1)-48-7*(a 
$ (j+1) 5" 9") 

70 POKE nad: LET n=n+1: LET s= 
s+d: NEXT j 

80 IF s<>a THEN PRINT "Error 
en la linea ";i: STOP 

90 NEXT i 
200 DATA "2AS5SCEDSBSISCCDES19D 
D21057D119A063EFF37CD5S6053O0F1F32 
1377F11ABFC",3597 
210 DATA "01F6023ECBED4FCDOBFEZ 
1D9FC545D01C8023E82ED4FCD6EFB21A 
BFC11ABECO1",4224 
220 DATA "9000EDB021E1FC36EC3EC 
93225FDCDD9FC215FFB227DFF3E61329 
9FFC33CFFFB" , 4805 
230 DATA "FD213ASCED7B3DSCC3B31 
BCDS200EDS5FAE77EDA0E03B3BE8F3210 
06111005B01",3715 
240 DATA "00979EDBOC3AB87",1067 
300 RANDOMIZE USR 64256 
310 CLEAR 6425 INPUT "Inmorta 
1 ?";as$: THEN FOKE 40 
947,201 
320 INFUT "Tiempo infinito ?";a 
$: IF a$="s" THEN POKE 36661,0 
330 INFUT "Apoyarse en los late 
rales ?";a$: IF a$="s" THEN РОК 
E 39331,165 
340 INPUT "Mapa fijo ?";а%: IF 
a$="s" THEN POKE 45157,201 
350 RANDOMIZE USR 64376 


dirección a la que debe volver dentro 
del bucle principal del BASIC cuan- 
do acabe la ejecución o se produzca 


un error. De esta forma, en lugar de 
volver al BASIC, salta a un programa 
en código máquina que comienza en 
la dirección que se ha POKEado y que 
ha sido extraída de la variable del siste- 
ma VARS. Esta dirección es 4622D 
si está conectado el interface 1. Aquí 
nos encontramos con el clásico pro- 
grama en código máquina de este sis- 
tema de protección. Es totalmente 
ininteligible. Parece como si estuvié- 
ramos desensamblando una tabla de 
datos en lugar de un programa. La 
mayor parte de las instrucciones no 
valen para nada y las que sirven hay 


El segundo programa 
luce en su primera línea 
el nombre de la 
Protección: Speedlock. 


que buscarlas con mucho cuidado. 
En grandes rasgos lo que hace es de- 
sactivar las interrupciones, carga un 
dato en el registro R, realiza un mon- 
tón de instrucciones que no sirven 
para nada entre las que se incluye un 
LDIR que mueve casi toda la memo- 
ria libre, y por último entra en un bu- 
cle en el que desenmascara un blo- 
que del programa utilizando el regis- 
tro R y lo coloca a partir de la direc- 
ción +FCDO9. Este bucle es muy cu- 
rioso ya que no tiene ninguna ins- 
trucción de salto. En su lugar se utili- 
za la instrucción RET PE después de 
aber colocado la pila de forma que 
el salto se produzca a la dirección de- 
seada. 

El hecho de que la máscara se haga 
con el registro R implica que no po- 
demos modificar el trozo de progra- 
ma comprendido entre el punto en 
que se carga este registro y el bucle en 
que se utiliza, ya que se incrementa 
cada vez que se ejecuta una instruc- 
ción. Esto impide que eliminamos el 


LDIR que modifica toda la memoria 
y que destruiría cualquier monitor 
existente. No tenemos más remedio 
que escribir un pequeño programa 
que deshaga la máscara, pero necesi 
tamos conocer el valor del registro R 
la primera vez que se ejecuta el bucle 
En este tipo de situaciones en que 
queremos saber un dato, pero cuan- 
do todo el sistema está destrozado, se 
puede utilizar el siguiente truco, Jus- 
to en el punto en que está el dato que 
buscamos insertamos unas instruc- 
ciones con las que guardamos el dato 
en una dirección alta de memoria, 
colocamos en la variable del sistema 
КАМТОР una dirección menor que 
aquella en la que tenemos el dato, y 
por último hacemos un salto a la di- 
rección de NEW (#11B7). Esto reini- 
cializará el sistema, pero sólo borrará 
hasta el RAMTOP, con lo que podre- 
mos leer el dato que queríamos direc- 
tamente de la memoria con la fun- 
ción PEEK. Haciendo esto descubri- 
mos que el primer valor que se utiliza 
como máscara es el #CD. Con esto 


ya podemos deshacer la primera 
máscara y pasar el análisis a la direc 
ción +FCD9 

Aquí nos encontramos con otra 
máscara similar pero conservando el 
antiguo valor del registro R. Para 
deshacer esta segunda parte utiliza- 
mos un método similar al anterior, 
pero en esta ocasión dejamos que la 
máscara se pase directamente y des- 
pués el NEW nos dejará a salvo toda 
la rutina que queda. Hasta aquí todo 
es igual que las antiguas versiones de 
este sistema de protección, pero en 
este punto nos encontramos ya con 
la rutina de carga. En esta ocasión to- 
davía queda por superar una última 
barrera en la que se va pasando una 
máscara encadenada varias veces en 
las que se utilizan como valores ini- 
ciales los propios códigos del progra- 
ma que se está ejecutando. De esta 
forma si cambiamos un solo byte del 
programa no conseguiremos llegar a 
la rutina de carga, y si no lo cambia- 
mos, la rutina se ejecutará impidien- 
do que tomemos el control. La solu- 


ción para superar esta última parte 
consiste en copiar el programa cn 
otra dirección y utilizar esta copia 
para coger los valores iniciales mien 
tras que en la otra se pueden colocar 
puntos de ruptura para evitar que se 
lance el proceso de carga. Con esto 


ya hemos llegado hasta la auténtica 
rutina, aunque todavía realiza una 
última comprobación antes de ejecu- 
tarla. Suma todos los bytes de una zo 
na de la rutina, y si no coincide con 
lo que debería de dar cuelga el pro- 
grama 
ción no tiene mucho sentido ya que 
si hemos logrado superar todas las 
protecciones anteriores ésta debe de 
dar el resultado correcto, y si no no 
hay nada que ejecutar. 

El cargadores prácticamente igual 
al que han utilizado siempre, con la 
clásica medida de períodos en el es- 
pacio comprendido entre la simula 
ción de cabecera y el bloque princi- 
pal. (Con esto se pretende evitar las 
copias analógicas hechas con casetes 
de nivel de grabación automático) 


Realmente esta comproba- 


El bloque de datos que carga ocupa 
toda la memoria comprendida entre 
#4000 y #F408, donde se incluye al 
principio la pantalla de presentación 
que aparece durante la carga y justo 
al final la que aparece cuando acaba 
Después el programa se lanza en # 
87AB 

Con todo esto ya estamos prepara- 
dos para comenzar el análisis del jue- 
go, pero estamos llegando al final del 
artículo, por lo que nos limitaremos 
a dar unas pocas indicaciones junte 
con los POKEs fundamentales 

El mapa no está codificado como 
tal, sino que tiene una tabla a partir 
de la dirección #7100 donde está co- 
dificada la información de los 240 
objetos que hay. Para cada uno tiene 
16 bytes que son directamente los 
que utiliza durante el juego para con- 
trolar su movimiento. Estos objetos 
pueden ser cualquier de los que apa- 
recen en el juego, tanto fijos como 
móviles. La tabla en total ocupa 3.7. 
Kbytes y la rutina en la dirección +: 
89109 se encarga de cambiar el orden 
de las pantallas en cada partida, Neu 


tralizándola conseguiremos jugar 
siempre con el mismo mapa 
La rutina en la dirección #9292 se 


encarga de gestionar el movimiento 
de todos los objetos, lo que incluye а 
nuestro Vorton, el Terratron y los 
tres disparos. La gestión de todos 
ellos está muy mezclada por lo que 
resulta dificil hacer POKEs que sólo 
afecten a nuestros enemigos. Con el 


programa 1 podréis jugar siendo in 
mortales y otras opciones. También 
lo podéis utilizar para probar otros 
POKEs colocándolos a partir de la 
línes 301. A modo de ejemplo propo 
nemos estos dos 


POKE 39330,195 
POKE 39090,180 


Si intentáis buscar más POKEs te- 
ned en cuenta que el cargador coloca 
el programa desplazado 1536 bytes 
respecto a su dirección de funciona- 
miento 

Por último hay que comentar que 
existe una última comprobación de 
protección en el programa. Durante 
el proceso de carga se ha manipulado 
el registro R y se ha colocado en él un 
dato con el bit 7 puesto a uno. Al ir 
incrementando el contenido para re- 
frescar las memorias se hace sola 
mente sobre siete bits, permanecien 
do inalterado el más significativo. 
Este bit se comprueba constante- 
mente durante el juego utilizando 
una curiosa instrucción de rotación 
no estándar cuyos códigos son СВ 
+37. Su efecto parece ser una rota 
ción a la izquierda del acumulador 
pasando el último bital carry e intro: 
duciendo un uno por la derecha. Pro 
bablemente se habrá utilizado esta 
instrucción por el hecho de que los 


monitores no la desensamblan 


Manuel Arana 


Núm. 3/300 ptas. 
El Spectrum por dentro. 


Núm. 4/300 ptas. 

OL, el nuevo Sinci 
ciocho programas, juegos 
montajes, _ ideas/Noveda- 
des. 


Núm. 5/300 ptas. 

Gráficos y sonido en el 
Spectrum/Libros/Software/ 
13 programas. 


Núm. 6/300 ptas. 
Construya su propio jue: 

90/13 programas y monta- 

jes/ideas/Software. 


[ness 
Мат. 7/300 ptas. 


Juegos inteligentes/Soft 
ware/ 11 programas/Li 
bros. 


Núm. 8/300 ptas. 

La aventura es la aventu. 
ra/12 programas/Juegos y 
montajes/Código måqui- 
na, 


Completa tu colección de ZX. 
A continuación te resumimos el contenido de los ejemplares 
atrasados en existencia. 


Nüm. 9/300 ptas. 
Construye tu propio ju 
go. Catorce programas pa 
га el verano. Gráficos en el 

Spectrum 


[рє VUELTA AL COLE 


Núm. 10/300 ptas. 

Catorce programas edu- 
cativos: geografía, cramer 
gráficos, razones trigono- 
métricas, elongación. Códi- 
go måquina. 


Ё 


Мат. 11/300 ptas. 

Cómo crear marcianos y 
otros monstruos. 

Diez programas satélites 
de Júpiter, rescate, interés 
circulo, préstamo hipoteca. 
rio. 


Nüm. 12/300 ptas. 

Presentación del Spec- 
trum Plus. Forth, capítulo 1 
Gráficos en el Spectrum, 4 
parte. Libros. Programas 
montajes. 


Núm. 13/300 ptas. 

Guía del software para el 
Spectrum todos los progra- 
mas del mercado. Forth, 
capítulo 2. Visitamos Sin 
clair Research. Libros. Pro: 
gramas. 


Nüm. 14/300 ptas. 


Cómo jugar al Hobbit, 
Gráficos de funciones. Pro 
gramas de ajedrez. Cone- 
xiones con el P I/O. Progra- 
mas Multiplic, enseñar де. 
leitando. Libros, Forth, ter- 
cera parte. 


Núm. 15/300 ptas. 
Simuladores de vuel 
Forth, cuarta parte. Monia- 
jes: Reloj digital p Spec 
trum. BASIC para princi: 
piantes. Libros. Programas. 


sA 

Nüm. 16/300 ptas. 
Cassettes: solución ë 
problemas de grabación. 
T Psicologia. Sistema 
de Desarrollo para el ZX- 


81. Cinemática, Progra 
mas. Animación Gráfica. 
BASIC рага principiantes 
(2). Forth, quinta parte. 


Núm. 17/300 ptas. 

Мара de Atic-Alac. Estira 
de caracteres. Dinámica de 
una particula. Libros. QL 
Magazine. ` Programas. 
Convertidot_analógico-di- 
айа! con el P I/O. 


Nüm. 20/300 ptas. 


` Núm. 18/300 ptas. 


Vacaciones con intormá 
Rentas 85. Forth, sexta | lica. Crítica. Noticias, Pro 
parte. Programas. BASIC | gramas. Son muy diverti 


dos. Libros. Generación de 
placas de circuito impreso. 
Forth. Movimiento armóni 
co simple. Spectrum mus 
cal 


а (3). Plot 
па Gráficos. Libros. Usua 
поз. Crítica. 


. 19/300 ptas. 

a de Knight Lore. No: 
їсіа. Crítica. Renta 85 (в 
gunda parte). Libros, El ZX 
81 aprende a sumar, Scroll 
de ventanas. Programas. El 
e que nos invade. 
para principiantes 


Núm. 21/300 ptas. 

Мара de Underwurlde. 
Noticias. Critica. ¿Has рго: 
bado? Programa especial 
barquitos. Sois muy diverti- 
dos. Libros para el verano. 
Un poco de fisica, BASIC 


para principiantes (5). 


BASIC 
(4). 
DISPONEMOS DE TAPAS ESPECIALES 
PARA SUS EJEMPLARES DE ZX 
(sin necesidad de encuadernación 


se pueden 
encuadernar 
6 nümeros) 


MESS 


(en cada tomo 


Núm. 22/300 ptas. 
Noticias. Teclados prot 

sionale 

bado 

prc sador de textos. Gi 

neración de placas de c 


cuito impreso (segunda 
parte). Programas QL esp 
ñol. Quinielas en Spectrum. 


BASIC 
(6). 


| 


para principiantes 


Núm. 23/300 ptas. 

Critica. ¿Has 
Profanation profanado. № 
ticias. Discos para 


trum. Dossier educación 
Spectrum en el aula, autoe- 
valuación, Logo. Código 


máquina. Ргодгатас 
especial: quin 
je a 

pa 


cámara lenta 
principiante 


(7) 


Critica. ¿Has pre 
Programa especial 


e: 


ir- 


a 


probado? 


lo- 


ón 
las. Monta 


à 


X, Bravo Murillo, 


EJEMPLARES ATRASADOS 


Núm. 24/300 ptas. 
Juegos/Mapas del No: 


probado?/ 
muy divertidos/Usua 

juste de grâficas/Mulli 
search/Programas/Monta. 

je: inversor de video para 
ZX 81/Dossier QL 


көп 
Иа 


Мат. 25/300 ptas. 
Juegos/Especial juegos, 
Mapas y trucos de: High 
way encounter, Tir Na Nog. 
Nightshade/¿Qué е 
Stack?/Programa espe 
Código máquina/Loteria 
primiliva/Stándares de la 
informática/Programas. 


Núm. 26/300 ptas. 

Spectrum o OL, invas 
de los 128/¿Cómo utiliza 
mejor е! microdrive?/Jue: 
аоѕ/Мара del Dun Darach 
y misión imposible/Progra- 
mación езілісішада/ВА 
SIC 


Nüm. 27/300 ptas. 

La vida de iclair/Pit 
zas musicales para Spe 
trum/Juegos/Mapas __ del 

SABOTEUR/ 
7 para impre- 
área de variable yla 
ión RST 16. 


instru 


saco Para hacer tu pedido, rellena el cupón adjunto, 
córtalo y envíalo HOY MISMO a: 
377 +28020-MADRID + Tel. 


733 74 13 


Los ejemplares atrasados de ZX serán una fuente constante de cono- 
cimientos, ideas, soluciones y entretenimientos para el futuro. Todo lo 
anterior hace recomendable que los guardes ordenadamente en una de 


las tapas especiales para ZX. Cada tapa puede contener 6 ejemplares 
y cuesta solamente 650 ptas. 
Ruego me envien los siguientes ejemplares atrasados de ZX 


Por favor envien 


(+ gastos de envio) 


al precio de 300 ptas. cada uno 
tapa(s) al precio de 650 ptas. cada una 


D contra reembolso О cheque adjunto O con mi tarjeta de crédito 


О Атегієап Expres 


O Visa О Interbank 


Fecha de caducidad 


Número de mi tarjeta | | 


NOMBRE ... 
DIRECCION 
POBLACION .. 
PROVINCIA 


r 
| 
| 
| 
1 
| 
| 
| 
| El importe lo abonaré 
| 
| 
| 
| 
l 
| 
I 


El Spectrum ofrece grandes posibilidades a la hora de crear 
gráficos, pero ahí queda la cosa. A diferencia de otros 


ordenadores, no lleva implementada en su sistema operativo 
ninguna rutina destinada a la creación de sprites, formas que 
pueden desplazarse a través de la pantalla de manera 
independiente, pudiendo especificarse para cada una de ellas 
la velocidad y dirección del movimiento. Son muy efectivos 
cuando se trata de diseñar juegos tipo Arcade debido a la 


facilidad de su manejo. 


xisten múltiples formas de 

crear animación para su visua- 

lización en la pantalla. El más 
obvio consiste en la creación de 
imágenes fijas almacenadas en la 
memoria, las cuales se suceden unas 
detrás de otra, con lo cual se da la 
impresión de movimiento, Esta téc- 
nica es similar a la utilizada por el ci- 
ne. Sin embargo, tiene el inconve- 
niente de que песе una gran can- 
tidad de memoria para poder alma- 
cenar las diferentes pantallas, y to- 
dos sabemos que los microordena- 
dores como el Spectrum sólo puede 
realizar secuencias animadas de es- 
te tipo hasta cierto punto debido a la 
escasa memoria disponible. De to- 
das formas, siempre existen trucos 


de programación que permiten au- 
mentar la capacidad de almacena- 
miento (utilizar una porción de la 
pantalla, compresión de datos etc.) 
Por supuesto este tipo de animación 
sólo puede conseguirse eficazmente 
mediante el empleo de rutinas en 
código máquina 

La forma más usual de crear mo- 
vimiento consiste en imprimir un 
determinado carácter, borrarlo (im- 
primiendo un espacio en blanco so- 
bre él), y volverlo a imprimir en una 
posición de pantalla algo más aleja- 
da. Con el empleo del BASIC sólo 
puede conseguirse movimiento en 
baja rseolución (carácter a carácter 
o de 8 en 8 pixels), pero resulta bas- 
tante lento y poco efectivo. Utilizan- 


do el lenguaje ensamblador, puede 
conseguirse también movimiento 
en alta resolución (pixel a pixel), pe- 
ro ello requiere una gran práctica de 
programación para evitar parpadeos 
en la imagen de televisión, y a medi- 
da que se van añadiendo más obje- 
tos, los problemas para controlarlos 
individualmente aumentan de for- 
ma considerable. 

La técnica más avanzada de movi- 
miento de figuras es la que se cono- 
ce con el nombre de gráficos sprites, 
que es la que normalmente se em- 
plea para la creación de losjuegos de 
las máquinas de los recreativos. 


La técnica más avanzada 
de movimiento de 
figuras es la que se 


conoce con el nombre 
de gráficos sprites. 


Sprites 


El término sprite, traducido lite- 
ralmente, ya es de por sí muy expre- 
sivo, pues significa duende o tras- 
go. Los sprites normalizados que 
utilizan ordenadores como el Com- 


modore 64, además de poderles ès- 
pecificar la velocidad y dirección, 
tienen capacidad de moverse en di- 
ferentes planos superpuestos (unos 
sprites pueden pasar a través de los 
otros). Cada sprite tiene un nú- 
mero asignado. Por ello, si dos 
sprites coinciden en una misma po- 
sición de pantalla, sólo se visualiza- 
rá el que tiene el número más bajo. 

También puede colorearse indivi- 
dualmente cada sprite e incluso re- 
ducirlo de tamaño (variando sim- 
plemente una determinada direc- 
ción de memoria). Otra condición 
que no debe faltar en un sprite que 


10 ORG #80F5 
20 ENT $ 

39 ON LD A, #80 
40 LO E.A 

50 умо 

„о RET 

70 ОРЕ ІМ 0 

во RET 

90 IADDR DEFW #8101 
100 SPRITE PUSH АҒ 
110 FUSH BC 
120 PUSH DE 
130 FUSH HL 
140 PUSH IX 
150 LD X, (#SC4B) 
160 LD ` A, (IX+0) 
170 CP AD: 


IR М2,ЕХІТ 
LD B,(1X+4) 
SFLOOF PUSH ВС 
LD BC,8 
ADD IX,BC 
CALL NXTSPR 
РОР ВС 
DINZ SFLOOP 
EXIT РОР IX 
РОР HL 
РОР DE 
РОР BC 
РОР АҒ 
RST #38 
RET 
LINE RRC H 
RRC H 
RRE H 
LD ВС,#1Е 
ADD HL,BC 
RLC H 
RLC H 
RLE H 
RET 
WIFE CALL HWIPE 
CALL LINE 
HWIFE CALL QWIPE 
INC HL 


460 ӨШІРЕ FUSH HL 
D 


470 L B,8 

480 WPLOOP LD (НО) ,0 
490 INC 

500 DINZ WPLOOF 
510 РОР HL 

520 RET 

530 TEST XOR A 

540 CALL HTEST 
550 CALL LINE 
560 HTEST CALL ОТЕЅТ 
570 INC HL 

580 QTEST PUSH HL 

590 LD в,8 

600 TSLOOF OR (HL) 
610 INC H 

620 DINZ TSLOOP 
630 РОР HL 

640 RET 

650 FINDA LD A,B 

660 AND #18 

670 OR #40 

680 LD н,а 

690 LD AB 

700 RRCA 

719 RRCA 

720 RRCA 

730 AND #Е0 

740 OR С 

750 LD L.A 

760 RET 

770 NXTSFR LD А, (ІХ+7) 
780 СР #40 

790 RET C 

800 DEC (IX+1) 
810 RET NZ 

820 LD . A, (IX+2) 
20 LD (Іхжіз,А 
840 LD в. (Іх) 
850 LD С, (IX+4) 
860 CALL FINDA 
870 CALL WIPE 
вао LD а, (1X+3) 
890 ADD А, (IX+5) 
900 СР #17 


910 IR. NC,NSEXIT 
920 LD B,A 

930 LD а, IX+4) 
940 ADD а, (1X+6) 
950 CP #1F 

960 JR  NC,NSEXIT 
970 LD C.A 

980 PUSH BC 

990 CALL FINDA 
1000 CALL TEST 

1010 POP BC 

1020 AND A 

1030 JR М2,МБЕХІТ 
1040 LD (1X+3),B 
1050 LD (1х+4›,С 
1060 JK меркам 
1070 NSEXIT LD (1Х+07),0 
1080 LD в, (IX+3) 
1090 LD C,(1X+4) 
1100 NSDRAW LD 1, (1Х+0) 
1110 DEC L 

1120 LD H,0 

1130 ADD HL,HL 
1140 ADD HL,HL 
1150 ADD HL,HL 
1160 ADD HL,HL 
1170 ADD HL,HL 
1180 LD DE, (#5C7B) 
1190 ADD HL,DE 
1200 PUSH HL 

1210 CALL FINDA 
1220 POF DE 

1230 DRAW CALL HDRAW 
1240 CALL LINE 

1250 HDRAW CALL ODRAW 
1260 INC HL 

1270 ODRAW PUSH HL 

1280 ір H.A 

1290 DRLOOP LD а, (DE) 
1300 ЕЛКЕЙ: 
1510 ІМС DE 

1520 INC H 

1330 DJNZ DRLOOP 
1340 РОР HL 

1350 RET 


10 CLEAR 33012: 
20 FOR ізі TO 
READ а: LET s$(j,1)=CHRE а: МЕХ 
тоз NEXT 
30 FOR j=0 TO 31: 
USR "a"+j,ar NEXT j 
500 LET t=0: FOR i=33013 TO 
257: READ а: POKE і,а: LET t=PEE 
K i+t: NEXT i: IF t<>29400 THEN 
PRINT "error en ааҰав",%: STOF 
520 RANDOMIZE USR 33013 
535 LET fil=CODE s$(1,4): 
o1=CODE s+(1,5): LET f#=CODE s$(2 
,4): LET c=CODE s$(2,5) 
540 IF fil=0 OR fil=22 
T s$ (1,6) =CHR$ 
): ВЕЕР .03,24 
545 IF col=0 OR col=30 THEN LE 
T в%(1,7)-СНК% (256-CODE s+(1,7) 
): BEEP .03,12 
550 IF f=0 OR Ғ-22 THEN 
(2,6) =CHRE 
EEP .03,24 
555 IF c=0 ОК c=30 THEN LET s$ 
(2,7)=CHRE (256-CODE s+(2,7)): В 
EEP ,03,12 
600 LET s+(1,8)=CHR* 65: LET s$ 
(2,8)=CHR+ 65 
700 60 TO 555 
900 REM datos de los sprites 
910 DATA 1,1,2,11,6,255,1,65 
920 DATA 1,1,2,11,20,1,255,65 
930 REM configuracion sprite 
940 DATA 7,24,32,64,64,128,128, 
128 
950 
960 
4,7 
970 


DIM s+ (2,8) 
FOR ізі TO 8: 


READ а: РОКЕ 


БЕТ € 


THEN ` LE 
(256-CODE в%(1,6) 


LET s$ 
(256-CODE s+(2,6)): B 


ық 
22. 


DATA 122,2 уэ 
DATA 128,128,128,64,64,32,2 


DATA 1,1,1,2,2,4,24,224 

990 REM codigo maquina 

1000 DATA 42,128,237,71,237,94,2 
01,237,70,201 

1001 DATA 1,129,245,197,215,229, 


221,229,221,42 


21,126,0,254,21 


1004 DATA 70,4,197,1,8,0, 

05,115 

1005 DATA 129,193,16,244,221,225 

з225,209,195,241 

1006 рата 255,201,203,12,203,12, 

203% 120 каа 

1007 DATA 0,9,203,4,203,4,203,4, 

201,205 

1008 DATA 64,129,205,41,129 

68,129,35,229 

1009 DATA 6,8,54,0,36,16,251,225 

42014175 

1010 DATA 205,85,129,205,41,129, 

205,89,129 

1011 рата 

225,201,120 

1012 рата 

15,15,15,2 

1013 DATA 224,177,111,201,221,12 

b,7,254,64,216 

1014 DATA 221,53,1,192,221,126,2 

,221,119,1 

1015 DATA 221,70,2, 

98,129,205 

1016 DATA 58,129,221,126,5,221,1 

34,5,254,23 

1017 DATA 48,31,71,221,126,4,221 

,134,6,254 

1018 DATA 31,48,20,79,197,205,98 

129,205,78 

1019 DATA 129,173,167, 
21,113 


21,9,2 


205, 


24,246,64,103,120, 


21,78,4,205, 


9122171 


1,54,7,0,221 


221,78,4,221,110,0,45, 


41,41,41,41, 191,123 


5,229 

DATA 205,98,129,209,205,219 
,129,205,41,129 
1024 DATA 205 ,129,35,229,6,8 


,26,119,19 
1025 DATA 36,16,250, 


5,201 


se precie de serlo es la detección de 
colisión, 

Los gráficos sprite tienen la ven- 
taja de que se les puede controlar 
desde el BASIC sin perder apenas 
efectividad en lo que a velocidad se 
refiere. 


Duendes en el Spectrum 


El Spectrum no dispone de gráfi- 
cos sprites, pero con la programa- 


ción adecuada pueden simularse 
perfectamente. La rutina que vamos 
a comentar en este artículo permite 
la creación de sprites con ciertas li- 
mitaciones. No permite la asigna- 
ción de colores ni los planos super- 
puestos (no puede pasar un sprite 
detrás de otro) y el movimiento se 
lleva a cabo en modo de baja resolu- 
ción, pero sí podemos especificar la 
velocidad y dirección del movi- 


miento, detectándose las colisiones 
de forma automática, 

El programa hace posible que 
puedan evolucionar en la pantalla 
hasta un total de $ sprites diferentes 
de 16 pixels de ancho por 16 de alto 
(4 caracteres para cada sprite). El 
número máximo de sprites que pue- 
dan visualizarse a la vez sólo vendrá 
limitado por las dimensiones de la 
pantalla. 


Moviéndose a toda velocidad 


Una vez creado el sprite me- 
diante el método habitual, haciendo 
uso de los gráficos definidos por el 
usuario, se deben asignar las coor- 
denadas iniciales, su velocidad y di- 
rección. Todo esto es suficiente pa- 
ra que empiece a moverse sin nin- 
gün problema. Y lo que es más, su 
velocidad no quedará entorpecida 
por las líneas Basic necesarias para 
el juego que tenga disenado. Una 
vez que el sprite inicia el movimien- 
to, su programa en BASIC o código 
máquina puede seguir corriendo de 
forma simultánca 
grarse porque la rutina funciona a 
base de interrupciones, lo cual quie- 
re decir que se ejecuta a sí misma 50 
veces por segundo. 

Una única línea de BASIC puede 
poner en funcionamiento la rutina, 
activándose la interrupción, con lo 
cual todas las líneas siguientes se 
ejecutarán secuencialmente, pero 
cada 1/50 de segundo entra en fun- 
cionamiento el programa en código 
máquina que controla los sprites. 


Esto puede lo- 


Los sprites tienen la 
ventaja de que'se 
pueden controlar desde 


el Basic sin perder 
efectividad. 


Parámetros de los sprites 


Cualquier sprite debe contener 
una serie de valores iniciales que 
posibilitan su visualización y movi- 
miento. Estos parámetros están al- 
macenados en forma de códigos de 
cartácteres en la matriz alfanuméri- 
ca s$(N,M). N puede contener cual- 
quier valor, y define la cantidad de 
sprites que vamos a utilizar para 
nuestros fines. En M se definen los 
parámetros propiamente dichos (8 
en total). 

El primer parámetro -5%(М,1)- 
define el número del sprite. Como 
ya mencionamos anteriormente, la 
configuración del sprite se crea de la 
forma acostumbrada mediante los 


UDGs, correspondiéndoles a cada 
uno de ellos 4 UDGs distintos: 


Sprite 1 = A,B,C,D 
Sprite 2 = UDGs E,F,G,H 
Sprite 3 = I,J,K,L 

Sprite 4 = is M,N,O,P 


Sprite 5 = UDGs Q,R,S,T 


El 2.2 parámetro debe inicializar- 
se a 1. Si introducimos еп él CHR$ 
0, el sprite no se visualiza. Cuando 
se produce una colisión o se llega a 
uno de los bordes de la pantalla, su 
valor será igual al del 3." parámetro, 
con lo cual podremos obrar en con- 
secuencia (hacer desaparecer el 
sprite, producir un rebote, sustituir- 
lo por otro sprite, etc.). 

El 3.“ parámetro —s$(N,3)— indi- 
ca la velocidad con que nuestro spri- 
te podrá moverse. Si contiene 
CHR9 0 el sprite se inmoviliza y si 
queremos conseguir la máxima ve- 
locidad debemos introducir CHR$ 
1 

Los parámetros 4 y 5 correspon- 
den a las coordenadas iniciales, fila 
y columna respectivamente. 


El 6.9 parámetro incida el despla- 
zamiento horizontal del sprite. Si 
queremos que la figura se desplace a 
razón de un caracter cada vez, 
CHR$ 255 indicará un desplaza- 
miento hacia la izquierda y CHR$ 1 
hacia la derecha. 

El desplazamiento vertical viene 
definido por el valor del 7.? paráme- 
tro (255 lo hará mover un carácter 
hacia arriba y 1 un carácter hacia 
abajo). 

El último parámetro es muy im- 
portante. Si su contenido es menor 
о igual a 64, el sprite se vuelve inac- 
tivo, Si colisiona con cualquier cosa 
(sea o no sprite) o llega a los límites 
de la pantalla, se detiene el movi- 
miento y se desactiva; el elemento 
s$(N,8) contiene entonces CHR$ 0. 


Empleo de la rutina 


Si desea utilizar esta rutina de di- 
seño de sprites desde el basic, una 


de las lineas del programa deberá 
ser DIM s$(N,8), siendo N el máxi- 
mo número de sprites que puedan 
aparecer a la vez en la pantalla. Me- 
diante un bucle for-next y unas 
líneas de datas, puede asignar valo- 
res a los parámetros еп la matriz s$ y 
a continuación un RANDOMIZE 
USR 33013 activará la rutina, con lo 
cual los sprites entrarán en acción. 
Si en cualquier momento desea de- 
sactivarla, RANDOMIZE USR 
33020 volverá al modo normal de in- 
terrupción. 

La mattiz s$ sufre una comproba- 
ción 56 veces por segundo, y mueve 


PRACTICA FUNDA 


A UN PRECIO ESPECIAL 


OFERTA LIMITADA 
Y EXCLUSIVA PARA 
NUESTROS LECTORES 


el sprite por la pantalla de acuerdo 
con los datos que contenga. 


Programa demostración 


Como ejemplo práctico de la utili- 
zación del diseñador de sprites, te- 
nemos el programa de demostra- 
ción en BASIC (fig. 2), el cual, una 
vez ejecutado, nos muestra dos bo- 
las rebotando por la pantalla. 

Pruebe a conseguir diversos efec- 
tos alterando los diferentes paráme- 
tros de ambos sprites (antes o du- 
rante la ejecución del programa) pa- 
ra adquirir soltura en su manejo y 
hacerse una idea de cómo podría 
emplearlos en sus propios juegos. 

Nosotros le hemos dado la herra- 
mienta, pero ahora le toca a usted 
utilizarla y sacarla el máximo prove- 
cho haciendo uso de su imagina- 
ción 


Orlando Araujo Martín 


PROTEJA SU SPECTRUM PLUS CON ESTA 


‚ Aproveche la oportunidad de mantener 
“como nuevo su Spectrum Plus 

con esta funda, y beneficiese 

de un 30% de descuento 

"sobre su precio normal. 


JU 


BATMAN 


ERBE 


SPECTRUM 48K 


Ocean nos sorprende muy 
agradablemente pasando la 
«barrera del Sabreman» para 
conseguir un juego que debe ser 
considerado todo un nümero uno 
de su categoria. Usando 
básicamente las mismas técnicas 
de animación, e incluso un 
parecido estilo gráfico, que las 
ültimas creaciones de Ultimate, 
Batman demuestra que son la 
imaginación y la creatividad las 
que deben unirse a la técnica 
para conseguir juegos atractivos 
y que no aburran. Ha conseguido 
Ocean lo que parece que ni 
siquiera ha intentado Ultimate a 
pesar de las muchas voces que 
clamábamos por ello. 

El objetivo del juego consiste, 
primeramente, en recoger los 
cuatro objetos que darán al 
protagonista ciertos poderes 
permanentes, como coger cosas, 
saltar, controlar la dirección de 
las caidas y «planear». Una vez 
los tengamos en nuestro poder 
hay que encontrar las siete 
piezas de la nave que permitirá a 
Batman salir en busca de su 
amigo Robin, que se haya preso 
por sus enemigos. 

El nivel de dificultad es realmente 
alto, en muchas de las pantallas 
que componen el mapa hay que 
romperse la cabeza para 
averiguar qué secuencia de 
acciones y movimientos es la que 
nos permitirán pasarla sin que 
acaben con nuestras vidas. Si a 
esto unimos el que el mapa esté 
compuesto por unas 150 
pantallas con dificultades de lo 
más variado, nos daremos cuenta 
de que hay que jugar muchas y 
muchas partidas si queremos 
llegar a algün sitio del que 
podamos sentirnos orgullosos. 


Sin duda habrá ya más de uno 
que espere ansioso los POKEs 
adecuados sin los que se siente 
perdido. 

Además de la gran calidad y 
variedad de los gráficos, el juego 
presenta un gran número de 
detalles que lo hacen tan 
completísimo como innovador. 
Disponemos de un interesante 
menú inicial con el que podemos 
variar algunas de las 
caracteristicas de juego, y ciertos 


«Batipoderes» qaue podremos 
encontrar en el transcurso de la 
aventura y actuarán como POKEs 
de duración limitada. 

Se trata, sin duda, de un gran 
juego, que consigue dar a esta 
clase nuevos incentivos con la 
inclusión de un mapa más 
interesante, mayor variedad de 
movimientos y un «algo» 
indefinido que nos hace disfrutar 
como chinos en cuanto le 
cogemos un poco el «tranquillo». 


GLASS 


MIND GAMES 


SPECTRUM 48 K 


Nos encontramos con un juego 
que a priori resulta interesante 


por salirse un poco de las reglas 
que parece ser dirigen un alto 
porcentaje de las ültimas 
creaciones para Spectrum. Nos 
recuerda en algo a aquellos 
juegos de acción que tanto 
gustaban hace sólo un par de 
años, pero con la ventaja de que 
le han sido aplicadas las últimas 
técnicas y trucos para hacerlo 
más agradable de jugar. 


CORE  0J00000009254 


EORE 


0000900034 20 


El juego consta de varias partes 
con estructuras bastante 
diferenciadas, en las que 
podremos disparar nuestro laser 
contra naves enemigas, recorrer 
grandes espacios esquivando 
los obstáculos que nos dañen la 
nave y le impidan avanzar, o 
destruir a las salvajes ordas 
alienígenas que nos atacarán 
con peligrosas granadas 
hiperbáricas (¿a qué es difícil 
relacionar una granada con una 
cámara de descompresión?). 


Disponemos de tres escudos 
que protegerán nuestra nave de 
cualquier tipo de impacto, pero 
debemos intentar usarlos lo 
menos posible, ya que no son 
eternos y sin su ayuda estamos 
vendidos. Lo que si parecen ser 
eternos son los dos 
electrolasers, con los que 
podremos combatir a los 
enemigos en condiciones de 
superioridad. 


El atractivo del juego reside en 
la rapidez y suavidad de cada 
acción, y lo fácil que es al 
principio avanzar en la aventura. 


En cuanto cubrimos unas pocas 
pantallas, poco a poco las cosas 
van poniéndose más difíciles, 
con lo que podemos llegar a un 
gran dominio de los controles 
en poco tiempo. Esto se une a 
unos gráficos en tres 
dimensiones sencillos pero con 
estilo, que hacen al juego muy 
agradable de llevar. 


La presentación del programa es 
muy completa, y sobre todo el 
menú principal. Además, existe 
otro que nos permite, al acabar 
una partida, jugar otra 
comenzando en el punto en que 
perecimos en la anterior, con lo 
que comenzamos la parte 
correspondiente a nuestro nivel 
de juego sin necesidad de pasar 
todo el juego en cada partida. 


MOVIE 


ERBE 


SPECTRUM 48K 


Destaca este juego entre los 
arcade-aventuras a que nos 
están acostumbrando las casas 
de soft por los abundantes 
detalles innovadores que incluye 
Aunque en un comienzo 
podamos pensar que se trata de 
uno más de los «ultimates» de 
turno, la verdad es que, cuando 
lo observamos más a fondo, nos 
damos cuenta de que, con 
algunos de los puntos que lo 
diferencian de éstos, marca una 
pauta que esperamos encarrile el 
mercado hacia nuevos modos de 
ver los juegos de aventura. 
Porque cuando comenzamos a 
jugar nos encontramos con que 
el protagonista, como viene 
siendo habitual, se mueve por 
habitaciones tridimensionales de 
impecable acabado en las que 
puede desplazar de su posición 
original los objetos que 
encuentre, etc., etc. En un 
principio todo parece indicar que 
vamos a toparnos con una 


aventura más, aunque ya la 
linea gráfica seguida puede 
hacernos sospechar algo: 
gráficos muy originales que, 
cuanto menos, agradecerán 
nuestros sufridos ojos. Pero no 
sólo esto llama la atención; la 
utilización de un menú de iconos, 
unida a la clásica del teclado 
para controlar las principales 
opciones del juego, da también el 
toque de distinción a que nos 
геїегіатоѕ. 


Sin embargo, е! punto más 
importante que debe destacarse 
de este juego es, sin duda, el que 
podamos dialogar con los 
distintos personajes que 
encontremos como en las 
aventuras de corte más clásico. Y 
lo más curioso es que los 
diálogos se nos muestren por 
medio de «bocadillos» que salen 
de la boca de los personajes al 
estilo de comics y «tebeos». 
Buena técnica para hacernos 
sentir inmersos en la aventura 
que suponemos que acabarán 
adoptando los juegos de este 
tipo si quieren sobrevivir. 

Como principal punto negativo, 
hay que reseñar que quede 
demasiado flojo como juego de 
aventura dialogada; 
evidentemente, el límite de la 
memoria de nuestro Spectrum 
coarta demasiado como para 
conseguir un juego que una un 
amplio mapa a buenas técnicas 
de animación, y que, además, 
incluya la suficiente Inteligencia 
Artificial como para conseguir 
diálogos «reales». Es en este 
sentido donde se ha tenido que 
«recortar» de forma que los 
diálogos están demasiado 
limitados a frases hechas y en 
momentos muy determinados. 


QUAZA- 
TRON 


ERBE 
SPECTRUM 48K 


Tenemos ante nosotros a KLP-2, 
un droide Meknotech cuya tarea 
es la de desactivar los droides 
enemigos que viven en la ciudad 
subterránea de Quazatron, en el 
planeta Quartech. Debemos 
destruir al enemigo con fuego de 
láser, desviándolos de su ruta 
programada o chocando contra 
ellos (siempre y cuando seamos 
más fuertes que ellos). 

KLP-2 tiene un dispositivo 
experimental llamado GRAPPLE 
que le permite parar y destripar a 
los droides enemigos. Las piezas 
recuperadas del enemigo pueden 
añadirse a KLP-2 para aumentar 
sus recursos y duración. El 
sistema de ordenador enemigo 
puede ser penetrado para 
conseguir mapas de los distintos 


niveles, y para obtener datos 
sobre los droides enemigos y las 
piezas que los componen. 

El juego se presenta bastante 
interesante una vez llegamos a 
hacernos una idea del 
planteamiento inicial y la forma 
de resolver ciertos problemas 
Quizá su único defecto reseñable 
sea, precisamente, lo poco claras 
que tenemos las cosas cuando 
nos enfrentamos a él las primeras 


veces, a pesar de la agradecible 
traducción al castellano de las 
instrucciones de la carátula. Y es 
que no se trata en absoluto de un 
arcade clásico en el que baste 
con pasearse por los distintos 
niveles esquivando a los 
enemigos y destruyéndolos «a 
láser limpio»; se parece más a 
Una arcade-aventura en este 
sentido, pero incluyendo detalles 
algo diferentes a lo que estamos 
acostumbrados. Aunque a 
primera vista pueda caerse en la 
tentación de compararlo con 
juegos como Giroscope o 
Spindizzy, la verdad es que son 
pocos los puntos en común con 
ellos. 

El nivel técnico es 
suficientemente alto como para 
que podamos incluir esta cinta 
entre las últimas oleadas de 
grandes juegos que están 
invadiendo el mercado. Unos 
gráficos originales y que siguen 
una línea muy regular (aunque en 
ocasiones se haga algo 
monótona), unas secuencias de 
animación buenas en general, 
efectos sobrios pero efectivos... 
evidentemente no puede decirse 
que sea un juego al que le falte 
nada importante. 


Z'ACTIVEN 


SPINDIZZY 


ELECTRIC DREAMS 


SPECTRUM 48K 2 


Si buscabas ип juego de acción 
en el que no fuera necesario 


matar marcianos, y del que 
pudieras disfrutar a lo largo de 
docenas y docenas de pantallas 
con distintas y cada vez mayores 
dificultades, he aqui el juego que 
buscabas. Siguiendo la linea que 
inició en su dia Melburne House 
con su magnifico Giroscope, 
Electric Dreams ha dado a luz un 
juego que supera incluso a aquél 
en muchos de los puntos 
esenciales. Un juego interesante 


y bien acabado que puede 
hacerte pasar muchas horas 
agradables frente a nuestro 
Spectrum. 

Habremos de guiar al pequeño 
Gerald, a elegir entre una esfera, 
una pirámide invertida o un 
verdadero giróscopo, por las 
intrincadas rampas y plataformas 
de un extraño mundo artificial, 
recogiendo el mayor número 
posible de diamantes antes de 
que se nos eche encima el 
tiempo, que será nuestro 
principal enemigo. Cada vez que 
visitemos una nueva pantalla o 
recojamos un diamante el tiempo 
disponible se verá incrementado, 
mientras que disminuirá con las 
caídas y cuando hagamos uso 
del freno para controlar la 
dirección del «aparatillo». 

El estilo de los gráficos en todo el 
juego es bastante bueno, tanto en 
las distintas formas que podemos 
encontrar cuando nos 
adentramos en el mapa, como en 
los abundantes detalles de 
presentación, etc. Pero lo mejor 
que incorpora es, sin duda, la 
bien conseguida sensación de 
realidad en los movimientos del 
«girador», sobre todo por la 
suavidad y rapidez con que los 
realiza y por la perfección 
alcanzada en la emulación de la 
gravedad e inercia a que se ve 
sometido. 

Es, en definitiva, un buen juego, 
que debe ser recomendado a los 
grandes «viciosos» del joystick 
que disfrutan de los mapas 
extensos y problemáticos. El nivel 
de dificultad es, desde luego, 
muy alto si pretendemos recorrer 
la totalidad del mapa; se hace 
prácticamente imposible de 
acabar en condiciones normales. 
No obstante, siempre existe la 
posibilidad de armarse de 
paciencia, destripar el juego, y 
colocar los pokes adecuados 
para completarlo. 
Indudablemente, este es uno de 
los mejores programas de su 
clase, capaz de poner a prueba 
los nervios y la habilidad del 
jugador más experimentado. 
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El compilador 
de PASCAL 
desarrollado 
por HISOFT 

contempla casi 

todas las 
funciones y 
procedimientos 
estándar. 


Todos conocemos la extraordina- 
ria implementación del lenguaje 
PASCAL hecha por HISOFT para el 
Spectrum. El compilador contempla 
casi todas las funciones y procedi- 
mientos estándar. El editor no es tan 
potente, pero con un poco de prácti- 
ca es fácil acostumbrarse a su uso. Sin 
embargo, al editar surge un pequeño 
problema de estética. Sólo dispone- 
mos de 32 columnas para escribir el 
texto, y de estas las seis primeras se 
utilizan en el número de línea. Con- 
forme utilizamos un poco los tabula- 
dores para separar los distintos blo- 
ques del programa y escribimos una 
sentencia un poco larga, nos encon- 
tramos con que necesitamos usar 
una segunda línea, perdiendo el tex- 
to su aspecto estructurado que tanto 
facilita su comprensión. 

Para solucionar esto, pensamos en 
la posibilidad de conseguir que todas 
las salidas a pantalla de este progra- 


ma se hicieran a través de una rutina 
de 64 caracteres. La rutina ya la tenía- 
mos escrita del programa que am- 
pliaba el sistema operativo del Spec- 
trum. Sólo había que independizarla 
del resto y conseguir que el PASCAL 
la utilizase. Para hacerla más corta, se 
redujeron en parte sus prestaciones. 
Se eliminó la posibilidad de escribir 
las palabras clave del BASIC y la sali- 
da a impresora. También se cambió 
el puntero de posición en pantalla, 
que ahora es propio del programa y 
no lo comparte con la salida normal 
de 32 columnas. Por esta razón, al 
hacer CLS, el puntero no vuelve a la 
esquina superior izquierda. Por últi- 
mo se hizo que aprovechara las 24 
líneas de la pantalla, ya que el PAS- 
CAL no utiliza las dos últimas para 
nada. Los códigos de control funcio- 
nan perfectamente. 

Sólo quedaba por conseguir que el 
HISOFT PASCAL la utilice. Este pa- 


ra sus salidas usa la corriente 2, que 
normalmente apunta al canal «S» de 
salida a pantalla. Vamos a explicar 
un poco cómo funciona esto. 

En el sistema operativo las entra- 
das y salidas se realizan a través de los 
«canales». Estas canales son sola- 
mente una referencia de la dirección 
de memoria en que se encuentra la 
Irutina que se va a utilizar para leer o 
escribir el dato. Para cada canal hay 
cinco bytes a partir de la dirección 
donde apunta CHANS en los que es- 
tán codificadas las direcciones de las 
dos rutinas y el nombre que le identi- 
fica. Cuando encendemos el ordena- 
dor hay cuatro posibles canales que 
son: el «S» (Screen) que se utiliza para 
escritura en pantalla y si se intenta 
usar como entrada produce un error, 
el «K» (Keyboard) para leer el teclado 
y escribir en la parte baja de la panta- 
lla, el «P» (Printer) para la impresora y 
el «R» que nos da error como entrada 


y como salida produce la inserción 
de un carácter en la posición del cur- 
sor, 

Para acceder a estos canales exis- 
ten 19 corrientes (16 accesibles desde 
el BASIC). Para cada una hay una re- 
ferencia de dos bytes en el área 
STRMS dentro de la zona de varia- 
bles BASIC. Sumando este dato a 
CHANS—1 obtenemos la dirección 
donde está la información del canal 
al que apunta. Con la sentencia 
OPEN conseguimos que una co- 
rriente determinada apunta al canal 
que queremos. 

La corriente 2 normalmente apun- 
ta al canal «S» y es la que se usa cada 
vez que hacemos un PRINT sin espe- 
cificar ninguna otra. También es la 
que usa el HISOFT PASCAL para sus 
salidas. Para nuestro objetivo de utili- 
zar la rutina de 64 caracteres tendre- 
mos que conseguir que esta corriente 
apunte a un canal cuya dirección de 


La corriente 

2, que 
normalmente 
apunta al canal 
S, es utilizada 
por el HISOFT 
PASCAL para 
sus salidas. 


El HISOFT 
PASCAL 
emplea como 
límite de la 
memoria 
utilizable el 
valor de UDG 
cuando no se 
especifica otro. 


salida sea la de nuestra rutina. Aquí 
caben varias posibilidades. La prime- 
ra sería pokear la zona de definición 
del canal «S», pero tiene el inconve- 
niente de que el sistema operativo 
vuelve a colocar el dato correcto cada 
vez que realiza una operación de bo- 
rrado de pantalla. También se podría 
insertar la información de un nuevo 
canal con la dirección de la rutina y 
luego abrir la corriente 2 a ese canal. 
Pero el comando OPEN sólo funcio- 
na con los canales estándar y si el in- 
terface 1 está conectado su función 
OPEN cuelga el sistema. Por último 
está la solución adoptada. Como no 
pretendemos utilizar ninguna impre- 


sora con el modo de 64 columnas, 
pokeamos la información sobre el 
canal «P» y abrimos la corriente 2 a 
este canal 

Cargando cl HISOFT PASCAL en 
estas condiciones, en efecto funcio- 
na con 64 columnas, pero al empezar 
a trabajar nos encontramos con un 
problema. Cuando llegamos a la co- 
lumna 32 el editor entiende que ha 
llegado al final del número de línea e 
inserta seis espacios que deberían 
quedar debajo del número de línea. 
Para solucionar esto nos vemos obli- 
gados a analizar el programa en bus- 
ca de los pokes que lo arreglen. Están 
incluídos en el cargador. 


10 CLEAR 64461: LOAD 


FAFER 1: BORDER 1 

LEAR PRINT "Fon la с 
nal de HISOFT PASCAL" 

во LOAD ""CODE 


"64co1 "CO 


ESTORE 
30 


10 DEF ЕМ асаж) =СОрЕ at-39* (af 
>"9")—48 
20 CLEAR 64461: 


ШЕТ n=64462:;: 


FOR із1000 TO 1210 STEP 10 
40 READ аЖ,а: 
ЗО FOR ізі TO LEN a$ 


LET s70 


60 IF 1<1100 THEN LET d=16#*FN 
a(a#(j))+FN at(a#(j+1)): ШЕТ j=j 
ed 
70 IF 12=1100 THEN LET d=16xF 
М а(аж(1)) 
80 POKE п,а: LET п=п+1: LET s= 
: INK s+d: NEXT j 
opia origi 90 IF s<>a THEN PRINT "Error 
en la linea "pis STOF , 


100 NEXT 1 
110 SAVE 


POKE 23675,205: FOKE 


76,251 
110 RANDOMIZE USR 
1000 DATA 2 


"64co1 "CODE 64462,1074 
1000 DATA "Z2atefcfe20d26efcfe062 
811#+e082815fe092824fe0d20Ta2e002 
4181c7dc610", 3215 

1010 DATA "e6f06f18142d7dfeff200 
e2e3t257cfeff200621000018012c7df 
032600" 
O DATA "247cfe18300422fefcc9c 
dfe0d21001718f4fe103814fe16300c1 
12efcc37d0a" , 3354 


Para utilizar la rutina de 64 carac- 
teres tenéis que empezar por teclear 
el programa 1 y guardarlo en una cin- 
ta virgen con la sentencia SAVE 
“Pascal 64"LINE 10. Este será el car- 
gador definitivo que se encargará de 
realizar todas las conexiones de los 
canales y cargar el HISOFT PAS- 
CAL. Antes de lanzarlo, el cargador 
se borra a sí mismo para dejar sufi- 
ciente espacio en memoria. Gracias a 
esto se puede utilizar también para la 
carga desde microdrive. А continua- 
ción, tecleáis el programa 2. Este po- 
keará en memoria toda la rutina y el 
juego de caracteres. La tenéis que eje- 
cutar y, si no hay ningún error, des- 


pués de poco menos de un minuto 
estará todo dispuesto para salvarla en 
cinta. Hacedlo justo a continuación 
del cargador. 

Ya está todo preparado para empe- 
zara trabajar. Cargad los dos bloques 
que habéis grabado y a continuación 
introducir la copia original del HI- 
SOFT PASCAL. Es importante que 
se trate de la copia original, ya que si 
habéis hecho una copia de seguir- 
dad, siguiendo las instrucciones que 
se dan para ello en el manual, ésta no 
será idéntica. Cuando se lanza el pro- 
grama por primera vez, hace tres pre- 
guntas sobre la distribución de me- 
moria (a las que normalmente no se 


Para utilizar la 
rutina de 64 
caracteres se 
pokea la 
información 
sobre el canal P 
y se abre la 
corriente 2 a 
este canal. 


о DATA 
ез 
icefbcd800a" , 3494 
1040 DATA 
Bad7c2afefc953de63f: 
с+1З420+6с9", 
1050 DATA 


+t7dcb34+5873 


«5571 


1060 DATA "Sff13e0f3801af32b2fc3 
aY15cO06ff1f380104 141494 4ffdcb557 


e28020ef fe" 
1070 DATA 
+b047laadaea912181 
047afedó7la",3143 


1080 DATA "аОаеа9і?аҒесібҒ0814255 2200000000f" ,2624 
d20dSedSbfefccbO0acbdacb0a7aeó! 1180 DATA 
658677ae6e0" , 4206 5600034443 

1090 DATA "cb3b836f3a8fSce67t772 44000355 
afefcc306fc0 19 74 1190 рата 

1100 рата "00000c 0222202005500 


bF002400000", 2368 
1110 DATA 
2500022 
66001122440",1808 
1120 DATA 


"ilicefbciBadafel8B3B043 
+18321142fcc37d0a1148fcc3700a1 


"2a0e5c577dfel620036a1 


"6f26002929290100fc09e 
S52atefc7ceb184 64057700404 04fe6e05 


"0Bel08180f 3ef0a14f3e0 
Ofal4f3efOb 


735730027471720441241 102326 


"о24444200422224000527 
220000002240000700000000 


"073555700262227002512 


1130 DATA 


1 
DATA 


1150 DATA 


5500255552 
1160 DATA 
6501 


1170 DATA 


1200 DATA 
4400 
5200097772 
1210 DATA 


n. 5520 
"065564400755577107556 
21160072222200555557005555 
52005777720",5664 
"055225500555222007122 
47007444470004625100711117002722 


"902544 44000617370 


316",3280 

"044655500206227001011 
152045665500444443000577730006595 
55000255520" , 3024 
"006556440035531100344 
42160027222100055557000555 
" ,2816 

"005525500055531600712 
470052422500. 


52007122440" , 3024 
"0752557002553 16000020 
0200224001242100007070000421 


856 


"06fda8700255755006565 
56002544520065555600746447007474 
44002547520" ,4192 

"0597555007 
52005566550044444700977795007999 


27001115 


4465 
1135550002564300 3464 


22200621226005a00 


470061611600135571007461 16003465 


00068bab896", 3184 


contesta) y después se reubica todo el 
bloque correspondiente al compila- 
dor y editor, con lo que los pokes se- 
rán distintos. El HISOFT PASCAL 
emplea como límite de la memoria 
utilizable el valor de UDG cuando 
no especificamos otra cosa. El carga- 
dor se encarga de modificar esta va- 
riable para que no sea necesario dar 
este dato. 

Por último queda por decir que ac- 
tualmente existen dos versiones de 
HISOFT PASCAL. El cargador está 
preparado para la más moderna, que 
es la denominada HP4T 1.6M (es la 
que pone Busy... cuando está reali- 
zando alguna operación con el case- 


te o microdrive). Para la versión ante- 
rior habría que cambiar los pokes y 
variar un poco el cargador, ya que ne- 
cesita de un interface BASIC para 
funcionar. Además presenta muchos 
problemas para trabajar con el inter- 


face 1 conectado, aunque lo cargue- 
mos desde cinta. De todas formas 
puede funcionar haciendo una copia 
que contenga ya los pokes y utilizan- 
do un cargador que prepare la co- 
luego carge el programa 


Happy Programing 


Manuel Arana 


Proteja su ordenador y manténgalo 
como nuevo con esta práctica 
funda de teclado transparente 
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DE DESCUENTO SOBRE SU Fecha de caducidad 
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e; pero que transmiten 
Таб en, кра. Y esquelirsériedad no tienë Bada 
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Hace ya algún tiempo —cuando 
los ordenadores eran de piedra—que 
a alguien se le ocurrió que podría 
aprovecharse el increíble desplie- 
gue de la red telefónica para trans- 
mitir datos entre terminales de or- 
deandores, que era lo que entonces 
más se llevaba. No mucho tiempo 
después —hablamos де 1967—, era 
posible encontrar en el mercado dis- 
positivos que, acoplados al teléfono, 
realizaban la conversión de dígitos 
binarios a «algo» que podía transmi- 
tirse por la red telefónica con baja 
probabilidad de error. Esto supuso 
un nuevo problema: era necesario 
definir un estándar que permitiera 
la interconexión de terminales de 
datos y el precioso artefacto (MO- 
DEM es su nombre). En 1969, a par- 
tir de un desarrollo de la Bell Sys- 


Cuando se desea 
transmitir datos entre 


dos ordenadores puede 
hacerse en serie о en 
paralelo. 


tems, la EIA publicó una serie de 
normas que se convertirían en el sis- 
tema actual más difundido para la 
transmisión de datos en serie. El 
RS-232-C había nacido. Las letras 
RS son las iniciales de «Recommen- 
ded Standard», estándar recomen- 
dado, El número sirve para identifi- 
cación y la letra C es un indicativo 
de las revisiones que ha sufrido. 
Posteriormente, el CCITT —Co- 
mité Consultivo Internacional de 


Teléfonos y Telégrafos— estableció 
normas muy semejantes bajo el 
nombre de «norma V-24». 


Comunicación serie 


Ya se ha comentado alguna vez 
desde estas mismas páginas en qué 
consisten y en qué se diferencian las 
comunicaciones serie y paralelo. De 
todos modos, creemos que no esta- 
ría de más un repaso al tema, espe- 
cialmente porque resulta de extre- 
ma importancia aclarar conceptos 
acaso no muy asentados. 

Las primeras nociones de civiliza- 
ción que aprenden hoy los niños al 
nacer es que la información digital 
se puede expresar como un conjun- 
to de dígitos binarios (bits), que 
pueden tomar el valor 0 ó 1. Estos 


unos y ceros se agrupan en palabras 
de modo que los ordenadores, que 
son unos monstruos devoradores de 
bits, puedan tragárselos en bloques, 
ynodeunoen uno, lo que seria muy 
lento. Estas palabras empezaron 
siendo de 4 bits y después de 8 (tal es 
el caso del Spectrum), e imparable- 
mente suben a los 16,32,... Cuando 
se desea transmitir datos entre dos 
ordenadores, podemos hacerlo en- 
viando estas palabras de golpe 
(transmisión en paralelo), o bien po- 
niendo sus bits en fila india y empu- 
jándolos por un cable único (trans- 
misión en serie). 

Resulta evidente que cada uno de 
los sistemas tiene ventajas e incon- 
venientes. Uno de los puntos a favor 
de la transmisión en paralelo es la 
velocidad. En igualdad de condicio- 
nes, un interface paralelo de «n» 
líneas será capaz de transmitir datos 
«n» veces más rápidamente que su 
homóloga serie. El inconveniente 


La ventaja de la 
transmisión en serie es 
la reducción al mínimo 


del número de líneas 
necesarias. 


obvio que presenta, es la necesidad 
de contar con este número de 
líneas. En ciertas aplicaciones esto 
plantea una dificultad insalvable. 
Asi, la transmisión a través de ocho 
líneas telefónicas en paralelo, no es 
sólo grotesca, sino que supondría 
problemas serios de sincronización. 

Por otro lado, existen limitacio- 
nes que no son intrínsecas a la mo- 
dalidad de comunicación, pero que 
están muy relacionadas. Tal es el ca- 
so ya mencionado del sincronismo. 
En general, cuando se hace un ten- 
dido con un número grande de hi- 


los, poco importa dedicar alguno 
más a esta labor. Y como un sincro- 
nismo adecuado es imprescindible 
para la correcta recepción, la comu- 
nicación en paralelo tiene fama de 
ser muy fiable. 

Por contra, hemos comentado 
que la transmisión de datos en serie 
ha de reducir al máximo el número 
de lineas —esta es su ventaja—. Por 
ello, la sincronización debe extraer- 
se a partir de la propia señal recibi- 
da. Y dado que ésta se recibe distor- 
sionada y perturbada por el ruido, 
no resulta en ocasiones una labor 
trivial. Debido a este hecho, no es 
de extrañar que a veces se produz- 
can errores. Es nuestra labor conse- 
guir minimizarlos en lo posible. 

Una vez explicada la necesidad 
que puede suponer la transmisión 
serie, es necesario definir un inter- 
face estándar que se encargue de 
transmitir la información binaria. 
La respuesta ha sido el RS-232-C. 


El interface RS-232-C 


Tal vez a alguien le pueda parecer 
extraño que estemos continuamen- 
te hablando de un interface cuando 
muchas veces ocurre que el periféri- 
co parece una parte integrante del 
propio ordenador. No es así, al me- 
nos si definimos este último en el 
sentido de «sistema procesador». El 
interface es simplemente de un pe- 
riférico encargado de adaptar dos 
equipos. 

A continuación debemos explicar 
qué significa la expresión «compati- 
ble RS-232-C». Se podía traducir co- 
mo «las características eléctricas y 
mecánicas —conector— del interface 
no violan la norma RS-232-C», 
Esto no significa que el interface sea 
tan completo como el que define la 
EIA o el CCITT, En efecto, los es- 
tandares definen un equipo muchí- 
simo más sofisticado lo que podría 
sernos útil (muchísimo significa 
precisamente eso). El nivel de com- 
plejidad que adoptemos depende de 
la aplicación que vayamos a darle. 


El RS-232 del 5 
pectr 
80 del Interface 
está cableado como 


Data Communication 
Equipment. 


La norma RS-232 ha sido conce- 
bida para transmitir datos entre dos 
equipos: el DTE: Data Terminal 
Equipment y DCE: Data Commu- 
nication Equipment. 

El interface de un extremo será 
siempre de un tipo y el otro del 
opuesto. Es absolutamente necesa- 
rio identificar en una aplicación da- 
da cuál es cada uno, por razones que 
veremos. 

El DCE se define como el equipo 
encargado de establecer, mantener 
y finalizar la comunicación. Póde- 
mos decir que es el que tiene la ini- 
ciativa, y por tanto hace posible el 


diálogo —que puede ser monólo- 
go—. 
El DTE es la fuente o destino últi- 
mo de la información. 

Somos conscientes de que estas 
definiciones no son lo que se dice 
un paradigma de claridad, por lo que 
vamos a poner ejemplos que disipa- 
rán nuestras dudas. Ver figura 1. 

En el caso común de conectar un 
ordenador a una impresora, teclado 
o monitor (CRT, tubo de rayos cató- 
dicos)... el interface RS-232 conec- 
tado al ordenador es el DCE y el in- 
terface conectado a la impresora, te- 
clado, CRT... es el DTE. En ocasio- 
nes se habla no del interface, sino 
del ordenador, la impresora,... pero 
ya hemos comentado que esto no es 
estrictamente correcto. Sin justifi- 
car la afirmación diremos que para 
el caso del interface propuesto, la 
CPU comparte labores propias del 
DCE. Esto se ha hecho así por razo- 
nes de economía. 

En el caso de comunicación entre 
dos ordenadores, el asunto es me- 
nos claro ya que unos modelos se 


configuran como DCE y otros como 
DTE. El tema está en saber de qué 
manera ha sido realizado el nuestro. 
Así, el RS-232 del nuevo Spectrum- 
128 o del Interface 1 está cableado 
como DCE. Esto simplemente es el 
resultado de una filosofía de diseño 
que no tiene posteriores repercusio- 
nes ya que no hay nada que no pue- 
da hacer un DCE que pueda un 
DTE y viceversa. 


Más tarde comentaremos un mé- 
todo para descubrir cómo ha sido 
cableado un interface. 


Si quisiéramos unir dos equipos 
que han sido definidos de una mis- 
ma forma, esto es, dos DTEs o dos 
DCEs, obtendríamos lo que se ha 
dado en llamar un «null modem». 
En este caso, lo que debemos conse- 
guir es que cada terminal «vea» su 
homólogo: que al DCE le parezca 
que está conectado a un DTE, yvi- 
ceversa. Como éste sería el caso de 
conectar dos Spectrum entre si, pos- 
teriormente le dedicaremos los 
oportunos comentarios. 


El baudio es un 
a 
Unidad de velocidad 
que mide los bits 


transmitidos por 
segundo. 


Tipos de comunicación 


Los más importantes son: 

SIMPLEX: El canal es unidirec- 
cional. Sería el caso de conectar un 
ordenador a una impresora. 

HALF DUPLEX o SEMIDU- 
PLEX: La comunicación es bidirec- 
cional pero nunca de modo simultá- 
neo. El ejemplo clásico es el del 
«walkie-talkie». 

FULL DUPLEX o DUPLEX: Los 
dos termina! eden comunicar 
se al mismo tiempo. 

Nuestro interface es capaz de es- 
tablecer comunicació ï duplex, pero 
los programas 504 antienen una 
modalidad Semiduplex. П, 


Velocidades 


Existen un conjunto de velocida- 
des estándar comprendidas entre 0 y 
20000 baudios: 50, 75, 110, 134.5, 
150, 200, 300, 600, 1200, 1800, 2400, 
3600, 4800, 7200, 9600 y 19200 baud. 


El baudio es una unidad que mide 
los bits transmitidos b/8 bytes por 
segundo. Es un error pensar que es- 
to equivale a transmitir b/8 bytes 
por segundo. Hay dos motivos por 
lo que esto no es así: 


La transmisión se realiza en blo- 
ques de 6, 7 u 8 bits (una palabra) de 
forma sincrona, esto es, con un 
tiempo fijo entre bit y bit—dado pre- 
cisamente por la velocidad de trans- 
misión, «bdud- -rate»—. Por contra, la 
transmisión de palabras se lleva a 
cabo à una velocidad indetermina- 
da, segün la disponibilidad del re- 
ceptor: una señal se envia cuando el 
equipo que la recibe ya ha digerido 
la anterior. Por ello se habla de una 
comunicación asincrona. 


11 bits 


FIG. 1 


El segundo es que debemos con- 
siderar que para transmitir una pala- 
bra, no sólo se envian los dutos pro- 
piamente dichos. Además son песе- 
sarios bits de arranque y de parada 
Para nuestro interface son 11 los bits 
por palabra. 


Características eléctricas 


Las características eléctricas se 
refieren a la definición de los niveles 
de tensión que caracterizan los esta- 
dos lógicos. Son las siguientes: 


estado alto/SPACE 


Vout > 5 V 
Vin>3 V 


estado bajo/MARK 


Vout <—5V 
Vin 3: 


Esto signilica que, si un interface 
quiere significar un estado alto 
=Space—, tendrá que poner a su sali- 
da una tensión mayor que 5 Voltios. 
De manera semejante un estado ba- 


jo se hace notar por una tensión in- 


Гегіога-5 Volt. Las tensiones máxi- 
mas admisibles son de +25 Volt. 

Con estas definiciones se mantic- 
ne un margen de ruido mínimo de 2 
Voltios, que es bastante elevado 
Esto significa que si el ruido que 
inevitablemente está presente en el 
cable es inferior a 2 Voltios, aún en 
el peor de los casos no será posible 
confundir un estado por otro. Esto 
supone una buena protección frente 
a perturbaciones. 

Podríamos preguntarnos el por- 
qué de estas tensiones. Pues bien, 
ya hemos comentado que nos dan 


un buen margen de ruido mayor 
que si иѕагатоѕ tensiones variables 
entre 0 y 5 Volt. que son más co- 
rrientes. Además, en la época en la 
que el RS-232 fue definido, era nor- 
mal que estas tensiones estuvieran 
presentes en el ordenador. Los 
tiempos cambian. 

Tal vez nos habrán extrañado los 
términos MARK y SPACE y que ca- 
da estado tenga varias denomina- 
ciones. ¡Pues.... aún hay más! El 
efecto más notable que produce tal 
profusión de nombres es el de crear 
la confusión total: el estado alto en 
realidad es el cero, Los hemos indi- 
cado porque la nomenclatura es 
muy corriente, pero en el futuro nos 
referiremos siempre a estado alto y 
bajo. 


En la mayoría de 
las aplicaciones 
imaginables es 


innecesario utilizar 
todas las líneas del 
estándar RS-232, 


El nombre de MARK y SPACE, 
marca y espacio, viene del Morse, y 
son los nombres que se daban al to- 
no y a la ausencia de tono, Y es que 
el código Morse fue el primer siste- 
ma de transmisión digital. 


Otras características de interés 


La IMPEDANCIA DE SALIDA 
en ausencia de tensión de alimenta- 
ción será de un máximo de 300 
Ohm. 


La RESISTENCIA DE ENTRA- 
DA del receptor puede variar entre 
3 y 7K Ohm. 

La MAXIMA TENSION DE SA- 
LIDA será en cualquier caso menor 
que +25 Volt. 

El interface debe ser capaz de so- 
portar un cortocircuito con cual- 
quier otro hilo del cable sin estro- 
pearse. Nuestro interface es teórica 
mente capaz de resistir cortocircui- 
tos entre dos líneas cualquiera, aun- 
que recomendamos que no se in- 
tente comprobar. Una de las leyes 
de Murphy dice que no es posible 
construir una máquina a prueba de 
tontos porque... ison muy listos! 

La MAXIMA DISTANCIA de 
cable aconsejada para un RS-232-C 
es de 16 metros. Esto viene princ 
palmente limitado por la resistencia 
del cable y por la capacidad parásita 
que presenta. En general, a peque- 
ñas velocidades será posible aumen- 
tar esta cifra sin problemas. 

CONECTOR: la norma hace re- 
ferencia a un conector tipo «D»s de 
25 patillas, pero un vistazo a las lis- 
tas de precios produce transtornos 
cardiacos. Por ello, se ha preferido 
usar un conector de 9 patillas del ti- 
po usado en joysticks, compatible 
con el que incorpora el Interface I. 
De esta manera podemos usar el 
mismso cable que está disponible 
para el Spectrum, 


Líneas 


La discusión de las diferentes 
líneas con las que cuenta un interfa- 
ce RS-232-C es una tarea larga y te- 
diosa. Como suponemos que nues- 
tros lectores conocen métodos 4 
ternativos para conciliar el sueño, 
vamos a describir brevemente el 
funcionamiento de sólo aquellos 
que nos afectan. En este punto re- 
cordamos el comentario que hici- 
mos en su día sobre la complejidad 
del interface definido como están- 
dar. Nos referíamos fundamental- 
mente al número de lineas de las 


que se dispone. Para el 99.9999 % de 
las aplicaciones imaginables, nos 
bastará con el propuesto. 

Antes de empezar, comentare- 
mos que el EIA y el CCITT propo- 
nen diferentes nomenclaturas. No- 
sotros escogeremos la del CCITT, 
que es la que tiene mayor difusión. 
— RXD (Received Data Line). Esta 
línea envía datos del DCE al DTE. 
En ausencia de transmisión se man- 
tiene en estado bajo. 

- TXD (Trasmited Data Line). Por 
la línea circulan los datos transmiti- 
dos del DTE al DCE. Igualmente, 
á en estado bajo cuando el inter- 
e es inactivo. 

- CTS (Clear To Send). Va del 
DCE al DTE. Se pone en alto para 
indicar que el DCE está listo para re- 
cibir un dato por el circuito TXD. 
- DTR (Data Terminal Ready). Уа 
del DTE al DCE. Indica a este últi- 
mo que el DTE está preparado para 
recibir datos poniéndose en estado 
alto. 

- DSR (Data Set Ready). Indica la 
disponibilidad física del DCE. Se 
pone en alto para indicar la cone- 
xión del circuito. En general no se 
usa. 

- GND (Ground). Es la linea de 
tierra, referencia para el resto de las 
señales. 

Como se observa, la nomenclatu- 
ra siempre se refiere al DTE. 

Para aclarar y revisar conceptos, 
vamos a poner una tabla sobre el 
sentido de las conexiones. 


DCE DTE 
RXD Sal Entr 
TXD Entr Sal 
CTS Sal Entr 
DTR Entr Sal 


Esta tabla permite conocer de qué 
manera está configurado un interfa- 
ce dado. 


El Spectrum —su interface quere- 
mos decir— cumple el sentido asig- 
nado a la columna de DCE. No re- 
sulta difícil comprender que esto 


ción de cables es simétrica. 


Si quisiéramos unir dos Spectrum, tendríamos un “null modem, En este caso, tenemos 
que hacer que cada interface vea un DTE. Esto no plantea problemas ya que la distribu- 


RAD = RAD 
TD E ТХр 
Spectr Impresora 
(DCE) CIS = "CIS (DTE) 
DTR DTR 
En la mayor parte de los casos no se llegará a cablear el circuito completo. 
FIG. 2 
RXD TXD 
TXD RXD 
Spectr 1 Spectr 2 
(DCE) CIS _ = DIR (DCE) 
DTR CTS 


FIG. 3 


significa que se trata de un DCE. 
Como las impresoras están configu- 
radas como DTE, al menos las que 
conocemos, la conexión se realizará 
como se indica: 


Descripción del Software 


Formato (para Spectrum): 

—по hay bit de paridad 

-8 bits de datos 

—bit de parada doble 

Velocidad por defecto: 9600 bau- 
dios. 

Vamos a explicar cómo tiene lu- 
gar el diálogo en forma genérica, 
visto siempre desde nuestro inter- 
faz. 


Emisión de un byte: 


—Se espera a que DTR se ponga 
en alto. Esto significará que el DTE 
está preparado para recibir, 

—Debemos preveer la posibilidad 
de que el ordenador se quede espe- 
rando una transición que acaso 
nunca se va a producir. Para evitar- 
lo, debemos pensar en alguna forma 


de interrumpir la espera. En nuestro 
caso, bastará con apretar la tecla de 
espacio. 

Se envía un byte con el formato 
apropiado. 

En general, cuando el ОТЕ detec- 
ta bits de parada, pone en alto el 
DTR. Esto hace posible que no se 
reciba otro dato hasta que haya sido 
posible digerir el último. 


Recepción de un byte 


—Ponemos CTS a nivel alto. Esto 
indica que estamos libres. 

—Esperamos a que la señal TXD 
se ponga en alto (bit de comienzo). 
Esperamos medio ciclo para leer en 
medio del pulso. 

—Leemos los 8 bits. 

—Ponemos CTS en bajo. 

—Guardamos el byte. 

Todos los bloques de datos que se 
transmitan entre dos ordenadores 
deberán finalizar con un CR (Ca- 
rriage Return, Retorno de Carro). 
Su código ASCII es el 13d, 0Dh. 


La ventaja de que todo el proceso 
esté implementado en software no 
es sólo económica, sino que cono- 
ciendo lenguaje ensamblador, po- 
demos adoptar los formatos, proto- 
colos... que más nos gusten. 

Ya hemos visto que conceptual- 
mente el software es muy sencillo. 
En la práctica, presenta algün pro- 
blema y el de el ajuste de los bucles 
de espera, que deben ser variables 
en función de la velocidad de trans- 
ferencia elegida. A continuación se 
indica una tabla con las velocidades 
estándar. (Si consultamos diferen- 
tes fuentes veremos que las veloci- 
dades estándar no son tan estándar 
como cabría esperar). 


FRECUENCIAS DE 
TRANSMISION ESTANDAR 


VELOC (Baud) Caract/seg 
75 6.8 
110 10 
150 13.6 
300 27.2 
600 54.5 


1200 109 
2400 218 
4800 436 
9600 872 
19200 1745 


Es fácil darse cuenta de que las 
velocidades se caracterizan por ser 
todas el doble de la anterior. Recí- 
procamente, el tiempo que hay que 
esperar entre la transmisión de dos 
bits consecutivos será el doble de la 
correspondiente a la frecuencia mi- 
tad. Así, lo mejor será construir un 
bucle en el que un único recorrido 
produzca el retardo mínimo. Basta- 
rá con recorrerlo dos veces para 
conseguir exactamente el tiempo 
requerido... Esta ha sido la estrate- 
gia adoptada. 

Con este motivo se ha construido 
la subrutina DELAY. Esta subruti- 
na produce un retardo de 183%(ТҮ-- 
71)+138 ciclos dereloj. Teniendo en 
cuenta el tiempo que ocupa el pro- 
grama principal, el tiempo total que 
se tarda en enviar un bites 183*(1Ү+ 
71)+183 ciclos de reloj. Consideran= 


do que la frecuencia de reloj es de 
3.5 MHz, es fácil darse cuenta que si 
el contenido de ІҮ+71 —que es una 
de las variables del sistema no usa- 
das— es igual a 1, la velocidad de 
transmisión es de 9600 baudios. Es- 
ta es la máxima velocidad que puede 
conseguirse. Podríamos transmitir а 
19200 bud, pero sería necesario 
cambiar el programa. Si es 3, la velo- 
cidad será de 4800 baudios 

Al ejecutar el programa será nece- 
sario indicar cuál es la velocidad de 
transmisión. Como inicialmente el 
puntero se pone a cero, el valor por 
defecto son 75 baud. Para ello se de- 
be hacer: 


POKE 23681,INT(19200/VT—.5) 
(Obsérvese el redondeo) 


donde VT es la velocidad de trans- 
misión en baudios. 

Para los valores estándar, el error 
cometido es de un 0.4%. Como el 
error sólo se propaga en un carácter, 
su efecto es indetectable. 


Luis M. Brugarolas 


INVERSION 


E 
DGS 


Durante el proceso de 
creación de UDGs, debemos 
recurrir muchas veces al 
diseño de gráficos 
exactamente iguales a otros 
pero orientados en 
direcciones o sentidos 
contrarios. Si no se dispone 
de una rutina de inversión 
de los datos que conforman 
ese carácter, no nos queda 
más remedio que crearlos en 
la memoria con el 
consiguiente gasto de 
aquella. En este artículo 
vamos a ver paso a paso 
como puede crearse una 
rutina que realiza la 
inversión de gráficos de tal 
forma que el proceso sea 
comprensible para quien 
quiera seguirlo 
detenidamente. 
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Ante todo debemos plantearnos el 
problema. ¿Qué es lo que queremos 
conseguir? Supongamos que quere- 
mos mover una flecha en sentido ho- 
rizontal. En este caso, en el momen- 
to que queramos cambiar el sentido 
del movimiento de la flecha (en el ca- 
so de producirse cualquier tipo de 
condición que contemple el progra 
ma que gobierna su desplazamiento) 
la punta deberá orientarse hacia el 
nuevo sentido del movimiento. El 
procedimiento más sencillo consisti- 
ría en crear dos gráficos diferentes, 
uno para cada sentido. Sin embargo, 
este método no resulta elegante y su- 
pone un gasto extra de memoria. El 
sentido común nos dice que debe ha 
ber alguna manera de invertir los da- 


tos del co definido que quere 


mos trata 
Suponiendo que tuviésemos dibu 
jada la flecha sobre una plantilla 


La inversión horizontal se 
solucionaría sencillamente 
si en el juego de 
instrucciones del Z-80 
hubiera una que produjera 
el «efecto espejo» en un 
byte. 


transparente bajo la forma de una 
cuadricula de 8 x 8 cuadros, el nuevo 


UDG resultante se formaría dando la 
vuelta al papel de izquierda а derecha 
(o de derecha a izquierda, el efecto es 
el mismo) y esto es lo que se conoce 
como «efecto espejo» ya que la ima- 
gen conseguida es la misma que la re- 
flejada en un espejo. 

Hasta aquí, la idea base. Si profun 
dizamos más en el proceso, anivel de 
bytes o de direcciones de memoria, 


descubriremos que esto es lo que ha 
ocurrido con cada de las ocho filas (o 
bytes) del UDG: 


BIT O ocupa el lugar del ВІТ 7 
BIT 1 ocupa el lugar del BIT 6 
BIT 2 ocupa el lugar del BIT 5 
ВІТ З ocupa el lugar del ВІТ 4 
ВІТ 4 ocupa el lugar del BIT 3 
BIT 5 ocupa el lugar del BIT 2 
BIT 6 ocupa el lugar del BIT 1 
BIT 7 ocupa el lugar del BIT 0 


En el caso de que volviéramos a 
realizar el mismo proceso sobre los 
nuevos datos, obtendríamos por su- 
puesto el gráfico original 


Para crear el efecto 
«espejo» se debe 
comprobar el estado de 


cada uno de los bits de las 
ocho filas del UDG. 


Cambio de lugar de las filas 
del UDG: inversión vertical 


Otro caso de inversión supone un 
planteamiento y soluciones distintos 
del problema. Siguiendo con el 
ejemplo anterior, si tenemos una fle- 
cha que se desplaza en sentido verti 
cal, la idea fisica de inversión consis- 
tiría en invertir la plantilla de papel, 
donde tenemos diseñada la flecha, 
de arriba a abajo (o de abajo a arriba). 
Al analizar más cuidadosamente la 
cuestión, nos daremos cuenta de que 
los bytes o datos nuevos del UDG así 
creado ya no coinciden, respecto a la 
colocación por filas con el anterior, 
tal y como sucedía en el caso de la in- 
versión horizontal. Sin embargo, los 
bytes individuales no han sufrido 
ninguna modificación, permanecen 
exactamente iguales. La colocación 
de sus respectivos bits es idéntica: 
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ANTIGUO UDG NUEVO UDG 


ocupa el lugar de la 8. Е 
ocupa el [ugar de la 72 Е 
ocupa el lugar de la 62 FI 
ocupa el lugar de la 3. F 
ocupa el lugar de la Да El 
ocupa el lugar беја 3.2 FI 
ocupa el lugar dela 23 F 
ocupa el lugar dela 1 Е 


Elaboración de la rutina de 
inversión horizontal 


Vamos a entrar en detalles con los 
pormenores de la inversión horizon- 


А Para acceder a cualquiera 

Â de las rutinas 

А | debe seleccionar el UDG 

А que se desea invertir 

colocando su nümero de 

orden en una determinada 
posición de memoria. 


tal de un UDG, para lo cual se deberá 
acudir indefectiblemente al código 
máquina. 

El problema se solucionaría de la 
manera más sencilla si en el juego de 
instrucciones del Z-80 hubiera una 
que produjera el mencionado «efecto 
espejo» de un byte. Las instrucciones 
que complementan a 1 y 2 no nos sir- 
ven, ya que el resultado obtenido 
con ellas es totalmente diferente a lo 
que queremos lograr. Por tanto, gra- 


1 REM Orlando Araujo Martin 
5 CLEAR 59998: GO SUB 999 
10 RESTORE 12: FOR i=0 TO 15: 


READ а: РОКЕ USR "a"+i,a: NEXT 


12 DATA 24,12,6,255,255,6,12,2 
14 DATA 24,60, 126,219, 153,24,2 


50 LET y=0: LET х-20: LET s=1: 
LET t=-1 

100 CLS PRINT AT 0,6;"PULSA C 
UALQUIER TECLA": POKE 59999,0: P 
RINT AT 1,4; PAPER 5;"A INVERSIO 
N HORIZONTAL ": RANDOMIZE USR 60 
000: PRINT АТ 1,27; PAPER 5;"A": 
RANDOMIZE USR 60000 

SIS- PRINT ATIO УОТА б 

120 LET y=y+s 

125 IF y=0 OR y=30 THEN LET s= 


8Ж-і: RANDOMIZE USR 60000 

126 IF INKEY$<>"" THEN GO TO 2 
00 

130 GO TO 115 

200 CLS PRINT АТ 0,6; "PULSA С 


UALQUIER TECLA": РОКЕ 59999,1: P 
RINT AT 1,4; PAPER 5;"B INVERSIO 
N VERTICAL ": RANDOMIZE USR 6009 
O: PRINT AT 1,25; PAPER 5;"B" 
205 RANDOMIZE USR 60090 
215 FRINT АТ ИБ: *B* 
217 LET x=x+t: PAUSE 1 
218 PRINT AT x-t,15; 8 * 
220 IF x=3 OR x=20 THEN 
%Ж-і: RANDOMIZE USR 60090 
225 IF INKEYS$<>"" THEN GO TO 1 


LET t= 


00 

230 GO TO 215 

999 RESTORE 2000: LET con=0 
1000 FOR і-60000 TO 60126: READ 
а: POKE і,а 

1001 LET con=con+a 

1002 NEXT i 

1003 IF соп<> 14015 THEN 
ERROR EN DATAS": STOP 
1005 RETURN 
2000 DATA 58,95,234,203,39,203,3 
9, 203,39,95 
2001 DATA 22,0,42,123,92,25,6,8, 
126, 14 
2002 DATA 0,203,71,32,33,203,79, 
32,33, 203 
2003 DATA 87,32,33, 203,95,32,33, 
203, 103,32 

2004-DATA 33,203, 111,32,33,203, 1 
19,32,33,203 

2005 DATA 127,32,33,113,35,16,21 
7,201,203,249 
2006 DATA 24,219,203,241,24,219, 
203,233,24,219 
2007 DATA 203,225,24,219,203,217 
.24,219,203,209 

2008 DATA 24,219, 203,201,24,219, 
203, 193,24,219 
2009 DATA 58, 95, 234, 203,39, 203,3 
9,203, 39,95 
2010 DATA 22,0, 42, 123,92,25,6,8, 
94,213 

2011 DATA 35, 16,251, 175,6,8, 17,8 
,0,237 
2012 DATA 82,209,115,35,16,251,2 
01 


PRINT " 


cias a las instrucciones disponibles, 
nos veremos obligados a comprobar 
el estado de cada uno de los bits de 
las ocho filas del UDG (64 compro: 
baciones), y según sea este resultado 
procederemos en consecuencia 
Sigamos paso, а paso el listado en 
ensamblador (Fig. 1). Ante todo se 


La rutina de inversión 
vertical es bastante menos 
complicada y ocupa 
considerablemente menos 
‚ memoria que la de 
inversión horizontal. 


debe seleccionar el UDG que se 2 
n Ue 


sea invertir. Para el! - 
-~no СОЇосагетоѕ su 
n 


-mero de orden en una determina- 
da posición de memoria (59999), es- 


tando este comprendido entre 0 (ра- 
ra el carácter A) y 20 (para el carácter 
U). Una vez hecho esto (a base de un 
POKE desde el Basic o mediante una 
instrucción de carga desde código 
máquina) deberemos multiplicar el 
número almacenado por 8. Esto se 
consigue almacenando el número en 
A y realizando sobre este registro 3 
desplazamientos aritméticos (SLA 
A) hacia la izquierda. Esta multipli- 
cación nos servirá para acceder a la 
primera dirección del carácter que se 
haya elegido. Para ello, se carga en 


DE el resultado obtenido y se suma a 
HL, que contiene la dirección del 
primer dato del UDG «А» (65368), 
Utilizamos el registro B сото conta- 
dor para examinar cada una de las 
ocho filas del UDG. A medida que se 
vayan invirtiendo cada una de ellas, 
decrementaremos В (DKNZ) y el tra- 
bajo habrá terminado en cuanto su 
valor sea igual а 0. 

Hasta aquí (líneas 10 a 105), no he- 
mos hecho más que inicializar los re- 
gistros principales que utiliza el pro- 


grama. Lo que viene a continuación 
es la rutina propiamente dicha, con- 
sistente en una comprobación del es- 
tado de cada uno de los 8 bits de las 8 
filas del UDG. Según el resultado de 
la comprobación, alzaremos o no el 
bit opuesto al comprobado en un re- 
gistro puente (el «C» que inicialmen- 


Ambas rutinas son 
plenamente efectivas en el 
momento que tengamos 
que maner; muchos 
gráficos. 


te vale 0). Una vez cargado el primer 
dato del UDG en «a», se procede a la 
primera comparación (BIT 0,A). Si 
este bit es igual a 0, el contador de ce- 
ro del registro de estado («F») tomará 
el valor Oy por lo tanto la instrucción 
de salto siguiente (JR NZ,SET7) no se 
llevará a cabo, con lo cual se procede 
a comparar el siguiente bit. Si por el 
contrario, el bit 0 es 1, el contador de 
cero valdrá uno y se ejecutará JR NZ,- 
ЅЕТ7. En la etiqueta SET7 tomamos 
el registro C y alzamos el bit opuesto 
al 0, o sea, el 7." Inmediatamente se 
repite hasta examinar los 7 bits y al- 
zar los correspondientes de C si fiese 
necesario. Acto seguido se carga el 
valor de C (que contiene el dato in- 


vertido) en la dirección de memoria 
contenida en HL (LD(HL),C), incre- 
mentándose este par de registros para 
acceder al próximo dato. El bucle se 
repite (DJNZ SIG) hasta haber com- 
pletado las ocho filas, con lo cual ya 
hemos conseguido invertir el UDG 
elegido, ocupando los nuevos datos 
las mismas direcciones que los ante- 
riores. 


Rutina de inversión vertical 


Esta rutina es bastante menos 
complicada y ocupa considerable- 


mente menos memoria que la de in- 
versión horizontal. Aquí tenemos lá 
ventaja de que ño es necesario cam- 
biar el número de orden de los bits 
individuales cada byte, sino sola- 
mente cambiar las direcciones de los 
bytes almacenados del UDG. 

En la línea 530 del listado Asem- 
bler tenemos el comienzo de la ruti- 
na que es exactamente igual al co- 
mienzo de la anterior. Se trata de ас- 
ceder al UDG deseado mediante üna 
sencilla multiplicación, 

Después de cargar el registró que 
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utilizamos como contador (el «С»), 
pasamos a ип buclé (LOOP) que hará 
8 iteraciones. Cada vez que sé pasa 
por él, se carga el dato de la dirección 
del UDG -LD E,(HL)-— y se almace- 
na en el stack (PUSH DE) pasando 
seguidamente a incrementar HL (inc 
HL) para tener aecesoal siguiente dà- 
to; De esta anera, hemos consegui- 
do almacenar en el stack los 8 datos 
del UDG ën el mismo orden de aquel 
(el primer dato guardado en él stack 
es el primero del UDG). 

La siguiente operación a realizar 


10 ORG 60000 
20 ENT $ 151 ;SI EL ВІТ ESTÀ ALZADO ЗАР 
30 LD А, (59999) ТА А *SET?? Y SÍ ЕЗ O COMPRUEBA 
31 ;5Е CARGA EN A EL NUMERO D 152 ¿EL ВІТ SIGUIENTE DE LA Fi 
EL UDG ELEGIDO LA і Е 
40 SLA А 160 UNO BIT 1,4 
41 10 170 JR NZ; SET6 
50 SLA A 180 DOS ВІТ 2,4 
60 SLA A 190 JR NZ,SETS 
61 ¡SE MULTIPLICA POR В 200 TRES ВІТ 3,A 
70 LD Е,А 210 JR NZ, SET4 
80 ТОО 220 CUATRO ВІТ 4,А 
81 ;5Е CARGA ЕМ 'DE' EL RESUL 230 JR NZ; 5ЕТЗ 
TADO OBTENIDO EN A 240 CiNto Віт 5,4. 
90 LD L, (23675) 250 _ ав NÉ; SET2 
91 ¡HL=DIRECCION DEL PRIMER U 260 SEIS ВІТ В;А 
DG 270 JR М2,5ЕТ1 
100 ADD HL,DE 280 SIETE BIT 7;А 
101 ¡SUMANDO *DE* A *HL* SE AC 290 IR ` NZ; SETO 
CEDE A LA DIRECION DEL UDG ELEGI 300 FÍN LD (HE),€ 
DO 301 ¿EL BYTE RESULTANTE SE CAR 
105 LD  B,8 GA EN EL MISMO LUGAR DE LA MEMOR 
106 ;B=CONTADOR PARA COMPROBAR ІА Ê 
LAS 8 FILAS DEL UDG 310 INC HL 
110 SIG LD А, (н) 311 ;5Е ACCEDE AL SIGUIENTE DA 
111 ¡SE CARGA EN A EL DATO COR TO 
RESPONDIENTE DEL UDG 320 DJNZ SIG 
120 г 1626 322 ;EL SIGUIENTE DATO 
121 ;SE LIMPIA 'C' ҮА QUE ESTE 323 ;FIN DE LA RUTINA 
VA A ALBERGAR EL BYTE RESULTANT 330 BL 
E 340 БЕТ? БЕТ 76 
140 ВІТ О,А 350 ок UNO 
141 ¿SE COMPARA EL ВІТ O DE LA _351 ¿SÉ ALZA EN °С’ EL BIT ОРУ 
FILA DEL UDG CORRESPONDIENTE ESTO 2 
150 JR NZ; BET7 360 SETE SET 6,С 
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consiste en cargar en HL la dirección 
de comienzo del UDG tratado, ya 
que tras el bucle anterior, ésta se ha 
incrementado en 8. Antes de proce- 
der a la resta, debemos asegurarnos 
de que el indicador de arrastre esté a 
0. para ello un simple XORA bastará, 
aunque cualquier otro método pue- 
de valer. 

Cargamos de nuevo el contador 
«B» con 8 para que el siguiente bucle 
pueda realizar su función y por fin 
restamos del contenido actual de HL 
8 unidades, con cual tenemos alma- 
cenada de nuevo en este registro do- 
ble la dirección original. 


verticalmente. El último dato del 
stack (que era el último del UDG ori- 
ginal) se carga en la dirección donde 
anteriormente estaba el primer dato, 
y así sucesivamente. 


Manejo de la rutina en sus 
propios programas 


El programa en Basic (Fig. 2) al 
mismo tiempo que carga los códigos 
decimales en la memoria, realiza una 
pequeña demostración de lo que se 
puede lograr con esta rutina. 

Cuando la quiera utilizar en sus 
programas deberá siempre proceder 
de la siguiente manera: 


—Cargar en la dirección 59999 el 
n. Че orden del UDG a invertir (te- 
niendo en cuenta que 0 equivale al 
primer carácter) con POKE,n., de or- 
den. 


-_ Llamar a la rutina con RANDO- 
MIZE USR 60000 para la inversión 
horizontal, o RANDOMIZE USR 
60090 para la vertical. 


—Imprimir el UDG transformado. 

Esta rutina es plenamente efectiva 
en el momento que tengamos que 
manejar muchos gráficos, ya que si 
estamos empleando un único juego 
de UDGs (21 gráficos), su utilización 
no compensa el espacio ocupado por 
aquella (126 bytes). 


Tras la realización del bucle 
LOOP2, el UDG queda invertido 
361 ¡SALTO PARA COMP 
IT SIGUIENTE DE A 
370 JR DOS 
380 SETS SET 5,С 
390 JR TRES 
400 БЕТА SETA, C 
410 JR CUAT 
420 SET3 БЕТ (3,С 
430 JR CINC 
440 SET2 SET 72,С 
450 JR SEIS 
460 SET1 SET. io 
470 JR SIET. 
480 SETO SET 0,С 
490 JR FIN 
500 
510 
520 
530 LD А, (5 
540 SLA A 
550 SLA A 
560 SLA A 
570 LD E,A 
580 LD D,O 
590 LD HL, ( 
600 ADD HL,D 
610 LD B,8 
620 LOOP LD E, (H 
630 ¡SE CARGA EN СЕ? 
ORRESPONDIENTE DEL UDG 
640 PUSH DE 
650 ¿SE GUARDA EL DA 
TACK 
660 INC HL 


ROBAR EL B 


680 


690 ¿SE REALIZA LA MISMA OPERA 
CION 8 VECES 


700 


710 


780 ¡RESTANDO 8 AL REGISTRO HL 
VOLVEMOS A TENER ACCESO A 
¿LA DIRECCION INICIAL DEL 


3999) 790 
UDG 


800 


810 LOOP2 РОР 
¡RECUPERAMOS EL ULTIMO DAT 
O DEL STACK 


820 


23675) 830 
E 840 


L) 
EL DATO C 


850 


880 
TO EN EL S 


900 


670 ;SE ACCEDE AL SIGUIENTE DA 
TO INCREMENTANDO LA DIRECCION 


iUDG ALMACENADO EN ORDEN I 
NVERSO EN EL STACK 


¿CON ESTA OPERACION SE PON 
EL INDICADOR DE ARRASTRE 


¿SE VUELVE A INICIALIZAR A 
CONTADOR 


ïY LO CARGAMOS EN LA DIREC 
CION DEL UDG 


¿SIGUIENTE DATO 


¿REALIZA LO MISMO HASTA RE 


CUPERAR LOS 8 DATOS CARGA- 
890 ;DOS EN ORDEN INVERSO 
RET 


DJNZ LOOP 
(QUEDANDO EL 
XOR A 

LD 


B,8 


LD 
SBC 


DE, 8 
HL, DE 


DE 


LD (HL), E 


INC HL 


DJNZ LOOP2 


Más difícil todavía 


Hasta ahora hemos visto dos ma- 
neras muy sencillas de inversión de 


caracteres, pero ¿y si no solamente 
queremos cambiar el sentido de 
orientación, sino también su direc- 
ción? Este planteamiento nos lleva a 
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lo que se denomina rotación de ca- 
racteres. Una rutina que realice esta 
tarea hará posible la orientación de 
un UDG en cuatro direcciones dis- 
tintas. Visualmente (llamando varias 
veces a la rutina e imprimiendo el ca- 
rácter sucesivamente) se creará un 
efecto de rotación que puede llevarse 
a cabo tanto de derecha a izquierda 
como de izquierda a derecha. 

El proceso es algo parecido al de la 
rutina de inversión horizontal, pero 
resulta bastante más complejo. En la 
segunda y última parte de este artícu- 
lo veremos su realización práctica, 
con lo cual el lector ya estará en pose- 
sión de un conjunto de rutinas que 
podrá utilizar para sus propios fines y 
modificar según sus necesidades. 

Hasta el próximo mes. 


Orlando Araujo Martín 


SUSCRIBASE 
POR TELEFONO 
* más fácil, 

* más cómodo, 

* más rápido 


Telf. (91) 7337969 


7 días por semana, 24 horas a su servicio 


SUSCRIBASE A 


_ APRENDIEND 


Una de las ventajas más importantes de la que nos podemos beneficiar 
cuando hacemos uso del lenguaje máquina es que desde él podemos manejar 
zonas de memoria propias del operativo que son difíciles de controlar desde 
el BASIC. Entre éstas se encuentran, por ejemplo, la propia zona del 
programa BASIC y la de las variables, donde se almacenan, 
convenientemente codificados, el listado del programa BASIC que haya en 
memoria en ese momento y los datos correspondientes a las variables que 
hayamos definido directamente o desde él. 


capítulo esa panorámica que co- 

menzamos dos nümeros atrás so- 
bre el mapa de memoria del Spec- 
trum. Vamos a intentar ver, por lo 
tanto, todas las zonas que quedaban 
por encima de «Información para 
canales» en el diagrama que ofreci- 
mos en el capítulo 10; zonas, en su 
mayoría, que son utilizadas por el 
operativo para conseguir que BA- 
SIC del Spectrum funcione como 
debe, y que pueden sernos de una 
gran utilidad conocer a la hora de 
usar las rutinas de la ROM, crear 
nuevos comandos, modificar los 
existentes o cualquier otra cosa que 
nos dicte nuestra imaginación. 

Comenzamos pues con la zona 
correspondiente al «Programa BA- 
SIC», cuyo principio queda senala- 


| ntentaremos completar en este 


do рог la variable del sistema | 


PROG, en las direcciones 23635/6. 
Estos dos bytes nos daráan un valor 
que dependerá de si tenemos o no 
conectado el Interface 1. Si no está 
conectado valdrá 23755, que corres- 
ponderá al principio de la primera 
linea de programa si la hubiere. 

El sistema usado para codificar las 
líneas de programa es sencillo, pero 
tiene algunas características espe- 
ciales que es preciso destacar: 


Los dos primeros bytes de cada 
línea corresponden al número de la 
misma (normalmente entre l y 
9999), usando el clásico sistema he- 
xadecimal para almacenarlos pero 
siguiendo en esta ocasión el orden 
contrario a lo habitual (o|sea, el que 
sería más lógico), primeramente el 
byte más significativo (o de mayor 
peso) y a continuación el menossig- 
nificativo. 

Los bytes tercero y cuarto de cada 
linea son ocupados por su longitud 
en memoria desde que comienza el 
primer comando (quinto byte), es 
decir, sin contar el número de línea, 
incluído el “New line” (CHR$ 13, 
ENTER) del final. Aquí el sistema 
utilizado para almacenar la longitud 
es el normal, con el byte menos sig- 
nificativo en primer lugar (ver Figu- 
ra 1). 

A partir de aquí se almacena la 
línea dando a cada carácter o co- 
mando su código ASCII correspon- 
diente tal como aparecerá en panta- 
lla, con la única excepción de los va- 
lores numéricos, que, tras los códi- 
gos de los caracteres que los compo- 
nen, incluyen un CHR$ 14 segui- 
do de los cinco bytes correspondien- 
tes al valor en coma flotante del nú- 
mero que sea (ver TODOSPEC- 


APRENDIENDO ——— 


Octeto más significativo 


| Octeto menos significativo 
y oy 
Бірді T Ў ГТТТТІ 
2octetos | 2octetos ч 00001101 
BEE] 3 3 11014101 
Número de Longitud del Texto ENTER 
linea 


texto + ENTER 


TRUM N." 22, págs. 59-62 y la pág. 
169 del Manual para lo de la coma 
flotante). Los caracteres de control 
(normalmente sólo los de color) no 
aparecerán en el listado, pero cam- 


biarán los atributos del mismo 
cuando se imprima en pantalla. Los 
dos puntos («:») usados para separar 
sentencias aparece como su código 
correspondiente; al final de cada 


línea debe encontrarse un CHR$ 13 
que corresponde al ENTER que 
pulsamos para que aquélla fuera ad- 
mitida. 


тш 
Nümero cuyo nombre es una letra ünica 
Bit de signo ы 
ШЕ ИГ ЕТЕНЕ | 
011 4 octetos para la mantisa 
exponente Н 
11] їй 
60* letra Valor 
Número cuyo nombre es más largo que una letra: 
101 0 1 5 ос!е!оз 
- 4 
| | 11 Ші $ 
Letra 60* 2* carácter Ultimo carácter Valor 
Matriz de números: 
100 | 2octetos | 1осїе!оз | 2octetos 2octetos |5 octetos cada uno 
[ШШК | | 
60*!ега Longitud Мітегоде 1.* Ultima Elementos 
total де dimensiones dimensión dimensión 
los elementos y 
las dimensiones 
+ 1 para el número 
de las dimensiones 


Renumerando un Programa 
BASIC 


Hay una gran cantidad de rutinas 
de utilidad que pueden hacerse 
aprovechando los conocimientos 
que ya tenemos sobre la forma en 
que se almacenan los programas 
BASIC en memoria. Quizá las más 
clásicas por lo prácticas sean las ruti- 
nas de renumeración de líneas. Al- 
go que se echa muy en falta en el 
BASIC del Spectrum, como es el co- 
mando RENUM, puede ser sustitui- 
do, como veremos ahora, por una 
rutina en código máquina que se en- 
cargue de esta tarea. Otros posibles 
usos que podemos darle a nuestros 


conocimientos en este sentido es, por 
ejemplo, crear una rutina que locali- 
ce o sustituya por otra a una deter- 
minada secuencia de caracteres y/o 
comandos dentro del listado, variar 
la presentación de los valores numé- 
ricos, eliminar las líneas REM para 
ahorrar espacio, etc. 

La corta rutina de la Figura 2 re- 
numerará todas las líneas de un pro- 
grama BASIC corriente en milési- 
mas. El sistema que se usa es el si- 
guiente: 

En primer lugar hacemos que el 
par de registros HL tome el valor de 
línea que queramos darle a la prime- 
ra de ellas; en el listado se le asigna 
un 10, pero es posible modificar este 


valor según nuestras necesidades. A 
continuación ponemos en el par IX 
la dirección de comienzo del pro- 
grama BASIC tomándola de PROG 
(23635/6). 

Seguidamente comienza un bu- 
cle que se ejecutará una vez para ca- 
da línea de programa que encontre- 
mos. En las líneas 60 a 110 lo que se 
hace, tras salvar HL en la pila, es 
comprobar si IX ha alcanzado el fi- 
nal del programa, lo cual lo conse- 
guimos «comparando» IX con 
VARS (23627), que, al marcar el 
principio del área de las variables, 
nos indica también el final del área 
anterior. Es necesario efectuar aquí 
(antes de nada) esta operación por- 


Byte menos significativo 


— 


Byte más significativo 


5octetos Soctetos 5octetos 


2 octetos 


1 octeto 


60* letra Valor Limite Paso осу 

de bucle sentencia 

dentrode 

la linea 
Cadenas 
010 2octetos 
60* letra Número de Texto de la cadena (puede estar vacio) 
caracteres 


Matriz de caracteres 


T| = = a < 
1 1] 2octetos | 1octeto | 2octetos 2octetos | 1 octeto cada uno 
|] | E 
60* letra Número ¡Número де 1.*dimen- Ultima Elementos 
total de dimensiones sión dimensión 
elementos y ! 
dimensiones 
+ 1рагае! 
nümero 


de dimensiones 


—— 16 


qué podría ocurrir que ho existiese 
ningún programa en memoria, lo 
que podría Пеуаг, caso de по hácer- 
se así, a que se «corrompieran» las 
siguientes zonas de memoria con 
peligro dë qüe la máquina se blo- 
quédse: е 

Después de esto introducimos él 
Huevo número de línea (líneas 110 y 
120), | le sumamos à IX la longitud de 
là linea +4 рага que apunte a la linea 
siguiente (líneas 130-170), suma- 
os à HL ип número (10 en el lista- 
do) que es el incremento entre los 
diferentes números de línea, y vol- 
vemos а ejecutar el bucle con la si- 
guiente línea saltando a КЕМІ/МІ. 

Esta rutina funcionará perfecta- 
mente con cualquier programa BA- 
SIC normal con el que la usemos, 
pero hay que advertir que tiene una 
Pequeña gran limitación; no renu- 
Mera, los GOTOs y GOSUBS que 
Huebiera ёп el listado, por lo que ha- 
бга que hacer esta táreá a mano о 
ampliar la rutina para que lo haga si 
queremos que nuestros programas 
«renumedos» funcionen a la perfec- 
ción. 


ад А 
El Area de las Variables 

La siguiente zona con la que nos 
encontramos en nuestro paseo por 
la memoria del Spectrum es la que 
almacena las variables que se utili- 


zan desde el BASIC para guardar y 
manejar números o cadenas de ca- 
racteres. Conviene no confundir es- 
tas variables con las Variables del 
Sistema, que, como vimos hace un 
par de capítulos, tienen otras fun- 
ciones. 

El comienzo de este área viene 
dado por la variable del sistema 
VARS (23627/8), y el final por 
E_ LINE (23641/2)—1, donde һау 
un byte que vale siempre 128 
(80hh). La forma en que estarán co- 
dificadas las variables dependerá del 
tipo que sean; podemos distinguir, a 
estos efectos, entre seis tipos dife- 
rentes, a los que asignaremos los si- 
guientes números de identificación: 


2) Variable alfanumérica (o de 
cadena). 

3) Variable numérica cuyo nom- 
bre tiene una sola letra. 

4) Matriz numérica (numérica 
dimensionada). 

5) Variable numérica cuyo nom- 
bre tiene dos o más letras. 

6) Matriz alfanumérica (cadenas 
dimensionadas). 

7) Variable índice (la usada en 
los bucles FOR-NEXT). 

Como las variables en el BASIC 
Sinclair no distinguen entre mayús- 
culas y minúsculas en la letra o le- 
tras que componen su nombre, po- 
demos emplear los tres bits más sig- 


10 ORG 23296 

20 RENUM 

30 LD HL, 10 

40 LD 

50 RENUM1I 

60 PUSH HI 

20 LD BC, (23627) 
2 PUSH 1X 

75 БӨРЕНЕ 

80 SBC HL,BC 

90 РОР HE 


IX, (23635) 


RET NC 

Ір (1X+0), 
ТИЯ 
ЕЮ B,(IX+3) 
LDE OEI 


ADD IX,BC 
EDI BC A 

ADD IX,BC 
Ір BC,10 
ADD HL,BC 
JR RENUMI 


TODOSPECTRUM es una publi- 
cación mensual que lé ayudará a 
obtener el máximo partido a su 
SPECTRUM y al ZX 81:. 


CONOZCA LAS VENTAJAS DE SUSCRIBIRSE A 


ш 


ADEMAS, le hacemos un 25 % DE DESCUENTO 
sobre el precio real de suscripción (12 números) 


SUSCRIPCION DE SUSCRIPCION USTED AHORRA 
“23:66 PTAS. 2.700 PTAS. 900 ртА$. 


VALOR REAL DE OFERTA ESPECIAL 
| 
) 
| 


APROVECHE AHORA esta oportunidad irrepetible para suscribirse а ТО- 
DOSPECTRUM. Envie HOY MISMO la tarjeta adjunta a la revista, que no 
necesita sobre ni franqueo. Deposítela en el buzón más cercano. Inmediata- 
| mente recibirá su primer ejemplar de TODOSPECTRUM таз е! REGALO. 


0000000005 шш чш — чаш E AQ OR gg CAPA 
Bravo Murillo, 377 
28020 MADRID 

E _— »- -xx——— 80а 


é N 
Nipa. 
nificativos de la primera letra de éste 
para especificar el tipo de variable 
lque es (los números de identifica- 
ción en binario irían de 010 a 111), 
mientras usamos los cinco bits res- 
tantes para señalar de cuál de las 26 
letras posibles se trata. Para conse- 
guir el código ASCII de la letra en 
cuestión basta con sumar 96 al nú- 
mero binario formado con los bits 
b4-b0 del valor que tenga ésta en el 
área de las variables. 

Una vez aclarado este punto po- 
demos pasar a ver cómo están alma- 
cenados los números o cadenas de 
cada variable dependiendo del tipo 
a que pertenezca. Podemos empe- 
zar por las más sencillas, las varia- 
bles numéricas, cuyo nombre está 
formado por una única letras, que 
ocupan un total de seis bytes (u oc- 
tetos) correspondientes al tipo- 
nombre seguido del valor en coma 
flotante del número que tengan al- 
macenado. En el caso de las varia- 


bles numéricas cuyo nombre sea 
más largo que una letra el sistema es 
parecido, sólo que hay querecurrira 
algo que nos permita diferenciar la 
última letra del nombre de las otras; 
el método que se utiliza es poner a 
cero el bit más significativo de éstas 
y a uno el de aquélla (ver Figura 3). 

Cuando se trata de variables nu- 
méricas dimensionadas la cosa se 
complica; el primer byte correspon- 
de al nombre más el tipo a que per- 
tenece según vimos anteriormente. 
Los dos siguientes corresponden a 
la longitud total que ocupa la matriz 
en memoria. El cuarto indica el nú- 
mero de dimensiones que tiene (ra- 
ramente más de dos o tres). A partir 
del quinto se almacenan, con dos 
bytes para cada uno, el valor de cada 
una de las dimensiones; y por últi- 
mo vendría el valor en coma flotan- 
te de todos los elementos ordeandos 
por sus subíndices de menor a ma- 
yor y de izquierda a derecha (Fig. 3). 


Otro tipo cuyo formato en memo- 
ria es inevitablemente complicado 
es el compuesto por las variables 
índice, ya que deben almacenar va- 
rios valores además del que tengan 
en cada momento. Tras un primer 
byte formado por el tipo-nombre, 
aparece el valor de la variable segui- 
do del límite que se dio con el co- 
mando FOR cuando fue definida y 
el paso (STEP) que se ha de sumar 
en cada NEXT (uno en la omisión), 
como valores en coma flotante, ade- 
más del número de línea (dos bytes) 
y el de sentencia dentro de la línea 
(un byte) a donde se debe saltar para 
cerrar el bucle (sentencia que sigue 
al FOR en que se definió). 

Las variables de cadena son más 
sencillas: un primer byte con el tipo 
y el nombre, dos bytes más que indi- 
can la longitud de la cadena, y los 
códigos ASCII correspondientes a 
los caracteres de la misma. Cuando 
están dimensionadas siguen un for- 


mato similar a las matrices numéri- 
cas, considerándose a cada carácter 
de una cadena como un elemento 
(ver Fig. 3). 


Otras Zonas de Memoria 


Entre las siguientes zonas de me- 
moria que podemos encontrar si se- 
guimos «subiendo» hacia las zonas 
altas hay algunas que usa el operati- 
vo de forma bastante dinámica. En- 
tre ellas podemos citar a la que que- 
da entre E_LINE y WORKSP, que 
es la zona donde se almacena lo que 
escribimos cuando tecleamos una 
orden directa o editamos una línea 
de programa. El formato usado es el 
más sencillo posible: los códigos 
que corresponden a cada carácter o 
palabra-clave seguidos de un 128 
(80h) para finalizar. Si la orden ha si- 
do introducida (con ENTER) el ca- 
rácter de éste (13) aparecerá tam- 
bién. 

Tras esto nos encontramos con el 


ANUNCIESE 


por 


MODULOS 


APRENDIENDO 


espacio de trabajo y de entrada de 
datos, que es el lugar a donde apun- 
ta la corriente R, usada desde el có- 
digo máquina para imprimir en este 
área como vimos en el capítulo pa- 
sado. Esta zona se usa, entre otras 
cosas, en los INPUTS, para almace- 
nar el nombre de un programa que 
está siendo cargado de cinta, etc 
Sobre esto, y tras la pila del calcu- 
lador (que será tratada en otra oca- 
sión), está el denominado es 
de reserva, entre STKEND y la pila 
de máquina, que es el «hueco» que 
permite crecer al programa BASIC 
«empujando» a las otras zonas hacia 
aquí. Este espacio lo podemos limi- 
tar modificando RAMTOP median- 
te el comando CLEAR, de forma 
que reservemos del avance del BA- 
SIC una determinada cantidad de 
espacio para nuestros programas en 
máquina. Obsérvese cómo existe 
sobre el stack o pila de máquina otra 
pila llamada «de GOSUB»; aquí es 


donde se almacena los números de 
línea y sentencia de cada GOSUB 
que sehaga, con el fin de volver al si- 
tio desde donde se hizo la llamada 
cada vez que se ejecute un RE- 
TURN. Tanto ésta como el stack 
crecen hacia abajo en el espacio de 
reserva sin límite ninguno. Es por 
esto es que sea aconsejable siempre 
calibrar que el número de RE- 
TURNS que se ejecuten en un pro- 
grama sea el mismo que el de GO- 
SUBs, y en código máquina, que 
haya tantos RETs y POPs como 
CALLs y PUSHs, ya que sino estas 
pilas podrían crecer tanto hacia aba- 


jo que invadieran zonas de memoria 


que no les corresponden; además de 
que está el riesgo de que un RET Ile- 
veel control de un programa a zonas 
imprevisibles de la memoria, con la 
consecuencia más que probable de 
que se produzca un incómodo blo- 
queo del sistema 


Luis Gala 


MADRID 
(91)73396 62 


BARCELONA 
(93) 3014700 [> 


Usted deberá ganar al ordenador, que siempre 


juega de banca, mediante nueve apuestas como máximo. 


Tiene tres opciones: 


a) Jugar una carta vista. b) Jugar una carta oculta. c) Plantarse. 


Toda carta vista que usted juegue, el ordenador conocera su valor. 
Toda carta oculta que usted juegue, el ordenador ignorará su valor. 
Al salir la primera carta de cada apuesta, usted dirá la cantidad de 
duros que juega, hasta un máximo de 18. 


Francisco Moreno 


O>REMPACO MORENO MONTEVERDE 1420 
20 POKE 23658,8: POKE 23609, 10 USR 


FOR a=0 TO 7: 


"A"+a,n: NEXT a 


FOR a=0 TO 7: 


"B"+a,n: NEXT a 


FOR a=0 TO 7: 


"C"+a,n: NEXT a 


FOR a=0 TO 7: 


"D"+a,n: NEXT а 
1460 DATA 0,34,119,127,62,28,8,0 


READ 


READ 


READ 


READ 


n: POKE 
n: POKE 
n: POKE 
n: POKE 


+0, 16,56, 124, 124, 16, 16,0,0,8,28, 


62,62,28,8,0,0,28,28,127,127,8,8 


о 1430 
110 GO SUB 8860 USR 
120 GO SUB 1600 1440 
130 GO SUB 2000 USR 
140 GO SUB 1000 1450 
150 GO SUB 1400 USR 
170 GO SUB 3000 
180 GO TO 1500 
990 STOP 

1000 REM Presentacion Pantalla 40 


1010 BORDER 


5: PAPER 4: INK O: С 1470 


1020 DRAW 255,0: DRAW 0,175: DRA 1505 


М -255,0: DRAW 0,-175 15 

1030 FOR а-28 TO 240 STEP 24: PL 1510 
OT а,0: DRAW 0,175: NEXT а VEZ? 
1400 REM Graficos 1520 


1410 RESTORE 


RETURN 
REM Otro juego 
BORDER 5: PAPE 


R 4: 


INK 0: C 


PRINT AT 10,10;"JUEGA OTRA 


S/N" 
PAUSE O: CLS 
IF INKEY$="S" 


THEN 


GO TO 1 


LA REVISTA QUE INTERESA TANTO AL AFICIONADO COMO AL PROFESIONAL 
A EST Monroe С-га 88 Questa M 


Т: D ORDENADOR 
$e 


Np 


(> 
vest agite 


Una publicación que 
informa con amenidad 
acerca de las novedades 
en el campo de las 
computadoras personales. 


ORDENADOR POPULAR, 
la revista para el 
aficionado a la 
informática. 

Ya está a la venta 
AA CON 


Cómprela en su kiosco habitual o solicítela a: 


Bravo Murillo, 377 
Tel. 7339662 $ 
28620 - MADRID 


PROGRAMAS 


30 

1540 STOP 

1600 REM Instrucciones. 

1605 CLS 

1610 PRINT % 
Usted debera ganar al ordena- 

dor, que en este caso siempre 

juega de banca, mediante nueve 

apuestas como maximo." 

1615 PRINT 

1620 PRINT " 
Tiene tres opciones: 

a) Jugar una carta vista 

b) Jugar una carta oculta 

c) Plantarse" 

1630 PRINT 

1640 PRINT ke 
Toda carta vista que usted 

juegue, el ordenador conocera su 

valor." 

1650 PRINT 

1660 PRINT ` 
Toda carta oculta que usted 

juegue, el ordenador ignorara su 

valor." 

1670 PRINT 

1680 PRINT я 
Al salir la primera carta de 

cada apuesta, usted dira la can- 

tidad de duros que juega, hasta 

un maximo de 18." 

1690 PRINT #1;AT 0,0;"PULSE UNA 

TECLA PARA CONTINUAR": PAUSE O: 

INPUT O 

1700 CLS 

1710 PRINT 

1720 PRINT * 
El ordenador juega en la pri- 

mera columna de la izquierda, 


PROGRAMAS PARA QL 

Juegos, utilidades y comerciales, gran variedad, 
50 titulos a 2.500/3.500 ptas. También programas 
para ATARI 520/1040. 

Ordenadores Sinclair QL con garantia y 9 
programas variados 43.900 ptas. 

ATARI 520 ST c/ Monitor FV - Disco Ratón y 


programas 151.350 ptas. 
ATARI 1040 c/ Monitor FV - Disco Ratón y 
programas 204.900 ptas. 
ATARI 1040 c/ monitor color - Disco Ratón y 
programas 222.750 ptas. (precios sin IVA) 
ENVIOS CONTRA REEMBOLSO. 
VALENTE computación 
Santa Engracia, 88 28010 Madrid Tel: 445 32 85 
Solicite GRATIS Boletin informativo. 


una vez que usted a finalizado 
su juego, apareciendo еп su рап- 
talla el resultado de sus apues- 
таз." 
1730 PRINT 
1735 PRINT P. 
Si la puntuacion del ordena- 
dor supera a las siete y media o 
es inferior a las siete y media, 
las apuestas que usted tenga con 
un valor igual a las siete y ше- 
dia se pagaran con el doble de 
su apuesta. " 
1740 PRINT >>” А, 
!! BUENA SUERTE !!" 
1750 PRINT?’ pe 
PULSE UNA TECLA PARA CONTINUAR" 
1760 PAUSE O 
1770 RETURN 
1900 STOP 
2000 REM Nombre del jugador 
2005 BORDER 5: PAPER 4: INK O: C 
LS 
2010 INPUT "INTRODUZCA SU NOMBRE 
";n$ 
2020 IF LEN n$>7 THEN PRINT AT 
20,0;"INTRODUZCA MENOS DE 8 LETR 
AS": PAUSE 300: CLS : GO TO 2010 
2030 RETURN 
3000 REM Juego del jugador 
3001 LET xx=0: LET cr=0: LET oc= 
0: LET q= LET carta 
3002 LET -1: LET c=4: LET p=0: 
LET g=0: LET z=0: LET p1=0: LET 
p2=0: LET p3=0: LET p4=0: LET p 
5=0: LET p6=0: LET p7=0: LET p8= 
O: LET p9=0 
3003 LET w1=0: LET w2=0: LET шЗ= 
LET w5=0: : 


ҺЕТ E pS LET 
арб=0: LET ap7=0: LET ap8=0: LET 
ap9=0 
3010 IF numero=4 THEN LET 1=1-2 


LET cartas=cartas-1: LET p=0: 
GO TO 3021 

3012 INPUT "N. DE APUESTAS(MAX.9 
Mg 

3014 IF g>9 THEN GO TO 3012 
3016 IF z=1 THEN GO TO 3020 
3020 IF r>=1 THEN GO TO 4200 


PROGRAMAS 


3021 PRINT #1;AT 0,0;"VISTA, OCU 
LTA O SE PLANTA(V/O/P)": PAUSE O 


INPUT O 
3022 IF ІМКЕҮ%-"У" THEN GO ТОЗ 
029 
3023 IF INKEY$="0" THEN LET r=1 


ï LET 7а-1: LET ос-1% БЕТ хх-і 
3027 IF ІМКЕҮФ="Р" THEN LET ос- 
9: GO TO 4000 

3029 FOR х--10 ТО 0: ВЕЕР .0125, 
x: NEXT x 

3031 FOR y=0 TO -5 STEP -1: BEEP 


e durós que juega, 
mo de 18. 


.0125,y: NEXT y 

3033 LET 1-1%2: LET cartas=carta 
s+1 

3035 IF cartas>=10 THEN LET 1=1 
EZ 

3037 LET grafico=INT (RNDX4)+1 
3038 LET numero=INT (RNDX16)+1 
3041 IF numero<8 THEN LET p=p+n 
umero 

3042 IF numero>7 THEN 
5 

3050 IF xx=1 THEN GO TO 3400 
3060 IF 1>1 THEN GO SUB 5100 
3085 PRINT PAPER q;AT 1,с;" "; 
АТ 1+1,с: PAPER q;" "¡AT l+2,c4 


LET p=p+. 


3090 IF grafico=1 THEN PRINT P 
APER q; INK 2;АТ 1,c+1;"A";AT l+ 
2,c; "A" 


3100 IF grafico=2 THEN PRINT P 


APER q; ІМК ОЗАТ 1,c+1;"B";AT 1+ 
2,c; "B" 

3110 IF grafico=3 THEN PRINT P 
APER q; INK 25АТ 1,c+1;"C";AT 1+ 
2,c; "C" 

3120 IF grafico=4 THEN PRINT P 
APER q; INK ОЗАТ 1,с+1; "р";АТ 1+ 


2,c; "D" Ў 
3130 IF numero=1 THEN PRINT РА 
PER q; INK ОЗАТ l,c;"1";AT 142,с 
1509 


3140 IF numero=2 THEN PRINT РА 


PER q; ІМК O;AT l,c;"2";AT 1+2,c 
+1; "2" 
3150 IF numero=3 THEN PRINT PA 
PER q; ІМК ОЗАТ 1,c;"3";AT 1+2,c 
+1; "3" 
3160 IF numero=4 THEN PRINT PA 
PER q; INK O;AT 1,c;"4";AT 1+2,c 
+1; "4" 
3170 IF numero=5 THEN PRINT PA 
РЕК q; INK O;AT 1,c;"5";AT 1+2,c 
+1; "5" 


3180 IF numero=6 THEN PRINT PA 


PER q; INK O;AT 1,c5"6";AT 1+2,c 
+13"6" 
3190 IF numero=7 THEN PRINT PA 
PER q; ІМК ОЗАТ l,c;"7";AT 1+2,c 
O 
3200 IF numero=8 THEN PRINT РА 


PER q; ІМК O;AT l,c;"J";AT 1+2,с 
+158)" 


3210 IF numero=9 THEN PRINT PA 
PER q; ІМК ОЗАТ 1,c;"Q";¡AT 1+2,с 
+1; "Q* 

3220 IF numero=10 THEN PRINT P 
APER q; INK О;АТ l,c;"K";AT 1+2, 
ск 

3221 IF numero=11 THEN PRINT Р 
APER q; INK О;АТ l,c;"K";AT 1+2, 
с+1; "К" 

3222 IF numero=12 THEN PRINT Р 
APER q; ІМК О;АТ 1,с; "К"5АТ 1+2, 
c+1; "К" 


3223 IF numero=13 THEN PRINT Р 
APER q; INK О;АТ l1,c;"Q";AT 1+2, 
c+1; "Q" 
3224 IF numero=14 THEN PRINT P 
APER 9: ІМК О;АТ 1,с; "О";АТ 1+2, 
с+1; "9" 
3225 IF numero=15 THEN PRINT Р 
APER qi ІМК О;АТ 1,с;"Ј";АТ 1+2, 
с+13 "J" 
3226 IF numero=16 THEN PRINT Р 
APER q; ІМК 05АТ 1,с;"Ј";АТ 1+2, 
c+13" J" 
3229 PRINT PAPER 6; INK O;AT 20 
.28:" "ЗАТ 20,28ір: LET q=7 
3230 PLOT 0,0: DRAW 255,0: DRAW 
0,175: DRAW -255,0: DRAW 0,-175 
3231 IF г=2 AND oc=1 THEN PRINT 
PAPER 1ïAT 1-1,c;" Ч: LET ос- 


о 

3232 IF cartas=1 AND numero=4 TH 

EN PRINT #1;АТ 0,0;"DESEA CAMBI 

AR LA CARTA POR OTRA?": PAUSE O: 
INPUT O 

3234 IF INKEYS="S" THEN LET r=0 
LET oc=0: GO TO 3010 

3235 IF oc=1 THEN LET r=2 

3238 IF cartas=1 THEN INPUT "CU 

ANTOS DUROS JUEGAS (MAX. 18) ";ар 

3240 IF ap>18 THEN LET ap=0: GO 
TO 3238 1 

3250 IF р>7.5 THEN PRINT АТ 21, 

25; "РІЕЕВЕ": PAUSE 200: PRINT АТ 


21,.25;" ": GO TO 4000 
3270 GO TO 3020 
3280 STOP 
3400 IF numero<8 THEN LET cr=nu 
mero 


3410 IF numero>7 THEN LET cr=.5 
3420 GO TO 3060 

3430 STOP 

4004 FOR a=28 TO 240 STEP 24: PL 
OT a,O: DRAW 0,175: NEXT a: PLOT 
0,0: DRAW 255,0: DRAW 0,175: DR 
AW -255,0: DRAW 0,-175 


4006 LET oc=0: LET z=z+1: LET ca 
rtas=0: LET r=0 

4008 IF p>7.5 THEN LET p=0: LET 
cr=0 

4009 PRINT PAPER 4;AT О,с;" ": 
PLOT 0,0: DRAW 255,0: DRAW 0,17 
5: DRAW -255,0: DRAW 0,-175 

4010 IF z=1 THEN LET pi=p-cr: L 
ET api=ap: LET ы1=р1+сг: PRINT 
PAPER O;AT 0,c+3;" " 

4011 IF z=2 THEN LET p2=p-cr: L 
ET ap2=ap: LET w2=p2+cr: PRINT 
PAPER 1;АТ 0,c+3;" 2 

4012 IF z=3 THEN LET p3=p-cr: L 
ET ap3=ap: LET w3=p3+cr: PRINT 
PAPER 2;AT O,c+3;" ”" 

4013 IF z=4 THEN LET p4=p-cr: L 
ET ap4=ap: LET w4=p4+cr: PRINT 
PAPER 3;AT O,c+3;" " 

4014 IF z=5 THEN LET рб=р-сг: L 
ЕТ ap5=ap: LET u5=p5+cr: PRINT 
PAPER G;AT 0,c+3:" " 

4015 IF z=6 THEN LET рб-р-сг: L 
ЕТ арб-ар: LET w6=p6+cr: PRINT 
PAPERS SAT \O;c4+43787 ги 

4016 IF 2-7 THEN LET p7=p-cr: L 
ЕТ ар7=ар: LET u7=p7+cr: PRINT 
PAPER ОЗАТ O,Qc4+31* “ 

4017 IF z=8 THEN LET р8=р-сг: L 
ET ap8=ap: LET w8=p8+cr: PRINT 
PAPER 15АТ O,c+3;" " 

4018 IF 2-9 THEN LET p9=p-cr: 


PROGRAMAS 


ET ap9=ap: LET w9=p9+cr ";AT 20,28;p: PLOT 255,0: DRAW 
4021 IF p1>7.5 THEN LET 0,175 


4022 IF p2>7.5 THEN LET 4060 GO TO 3020 

4023 IF p3>7.5 THEN LET 4200 PRINT #1;AT 0,0; "XXXVISTA ( 
4024 IF p4>7.5 THEN LET V) O SE PLANTA (P)Xxx ": PAUSE O 
4025 IF р5>7.5 THEN LET INPUT O 

4026 IF p6>7.5 THEN LET рб=0 4210 GO TO 3027 

4027 IF p7>7.5 THEN LET p7=0 5100 PRINT PAPER 75АТ 1-1,с;"__ 
4028 IF p8>7.5 THEN LET p8=0 " 

4029 IF p9>7.5 THEN LET p9=0 5110 RETURN 

4030 LET xx=0: LET cr=0 6000 REM Juego del ordenador 
4031 IF w1=7.5 THEN LET rec=1 6001 LET t=0: LET s=0: LET f=0: 
4032 IF w2=7.5 THEN LET rec=2 LET fic: LET 12-0: LET 49303 LE 
4033 IF w3=7.5 THEN LET rec=3 T f4=0: LET f5=0: LET 855 О: LET 
4034 IF w4=7.5 THEN LET гес=4 f7=0: LET f8 

4035 IF u5=7.5 THEN LET rec=5 6002 LET s1=0: LET s3= 
4036 IF w6=7.5 THEN LET rec=6 0: LET 34=0: LET s5=0: LET s6=0: 
4037 IF w7=7.5 THEN LET rec=7 LET 37=0: LET s8=0: LET s9=0 
4038 IF w8=7.5 THEN LET rec=8 6003 PRINT PAPER 4;AT O,c+3;" 
4039 IF w9=7.5 THEN LET rec=9 ": PLOT 0,0: DRAW 255,0: DRAW O, 
4040 IF z>g-1 THEN GO TO 6000 175: DRAW -255,0: DRAW 0,-175 
4045 IF z=g THEN PRINT PAPER 4 6005 PRINT PAPER 25АТ 0,1;" " 
¿AT 0,с+35" " 6010 LET. cartas=0: LET 1--1: LET 
4047 PRINT #1;AT 0,0;"PULSE UNA c=1: LET po=0 

TECLA PARA CONTINUAR": PAUSE O: 6015 PAUSE 100 

INPUT O 6016 FOR x=-10 TO 0: BEEP .0125, 
4050 LET c=c+3: LET p=0: LET 1=- x: NEXT x 


1: LET ap=0 6017 FOR y=0 TO -5 STEP -1: BEEP 
4055 PRINT PAPER 6;AT 20,28;" .0125,y: NEXT y a 
| 


PROGRAMAS 


6030 LET grafico=INT (RND*4)+1 
6040 LET numero=INT (RNDx16)+1 
6045 LET 1=1+2 

6050 IF numero<8 THEN LET po=po 
+numero 

6060 IF numero>7 THEN LET po=po 
+.5 

6065 LET cartas=cartas+1 
6070 IF cartas>=10 THEN 
=Z 


LET 1=1 


6080 IF 1>2 THEN GO SUB 7000 
GLIO PRINT -PAPER ТАТ l,c;" "4 
AT 141,C3 PAPER 74" - MIAT 142,04 
"лю 

6120 IF grafico=1 THEN PRINT Р 
APER 7; INK 2;AT 1,с+1; "А";АТ 1+ 
ZoNa” 

6130 IF grafico=2 THEN PRINT P 
APER 7; INK O;AT 1,с+1; "В";АТ 1+ 
2,c; "B" 

6140 IF grafico=3 THEN PRINT P 
APER 7; INK 2;AT 1,c+1;"C";AT 1+ 
2,c; "C" 

6150 IF grafico=4 THEN PRINT P 
APER 7; ІМК O;AT 1,с+1; "”";АТ 1+ 
2,03 "D" 

6160 IF numero=1 THEN PRINT РА 
PER 7; ІМК О;АТ 1,с;"1";АТ 1+2,с 
ОЛО 

6170 IF numero=2 THE 
PER 7; INK ОЗАТ 1,05 
417 32" 


PRINT PA 
¿AT 1%2,с 


6180 IF numero=3 THEN PRINT РА 
PER 7; ІМК ОЗАТ 1,c;"3";AT 1+2,с 
+1; "3" 

6190 IF numero=4 THEN PRINT PA 
PER 7; INK O;AT 1,c;"4";AT 1+2,с 
+1; "4" 

6200 IF numero=5 THEN PRINT PA 
PER 7; ІМК О;АТ 1,с; "5";АТ 1+2,c 
+1; "5" 

6210 IF numero=6 THEN PRINT PA 


PER 7; ІМК О;АТ 1,c;"6";AT 1+2,c 
+1; "6" 
6220 IF numero=7 THEN PRINT PA 
РЕК 75 ІМК OFAT 1,c3"7"¡AT 1+2,с 
HER T, 
6230 IF numero=8 THEN PRINT PA 
PER 7; INK O;AT l,c;"J";AT 1+2,с 
FF LEE ER 
6240 IF numero=9 THEN PRINT PA 
PER 7; INK O;AT l,c;"Q";AT 1+2,c 
+1; "Q' 
6250 IF numero=10 THEN PRINT P 
APER 7; INK O;AT l,c;"K";AT 1+2, 
с+1; "К" 
6251 ІР numero=11 THEN PRINT Р 
APER 7; ІМК ОЗАТ 1,с; "К";АТ 1+2, 
стік" 
6252 IF пипего-12 THEN PRINT P 
APER 7; INK ОТАТ l1,c:"K";AT 1+2, 
c+1; "K" 
6253 IF numero=13 THEN PRINT P 


APER 7; INK O;AT l,c;"Q";AT 1+2, 
c+1;"Q" 

6254 IF numero=14 THEN PRINT P 
APER 7; INK ОЗАТ l1,c;"Q";AT 1+2, 
с+1; "Q" 

6255 IF numero=15 THEN PRINT P 
APER 7; ІМК ОЗАТ l,c;"J";AT 1+2, 
Gri; т" 

6256 IF numero=16 THEN PRINT P 
APER 7; INK O;AT 1,c5"J";AT 1+2, 
c+1; "J" 

6257 PRINT PAPER Z; INK O;AT 19 
‚28;" "ЗАТ 19,28;po 

6258 IF po>7.5 THEN LET ро=0: G 


O TO 6301 

6259 IF po=7.5 THEN GO TO 6301 
6261 IF po<=p1 THEN GO TO 6015 
6262 IF po<=p2 THEN GO TO 6015 
6263 IF po<=p3 THEN GO TO 6015 
6264 IF po<=p4 THEN GO TO 6015 
6265 IF po<=p5 THEN GO TO 6015 
6266 IF po<=p6 THEN GO TO 6015 
6267 IF po<=p7 THEN GO TO 6015 
6268 IF po<=p8 THEN GO TO 6015 
6269 IF po<=p9 THEN GO TO 6015 
6301 IF ро>=ш1 THEN LET s1=5xap 
1: PRINT PAPER 2;AT 21,4;s1 


6302 IF po>=u2 THEN LET s2=5*ap 


DISPONEMOS DE TAPAS ESPECIALES PARA 


(cada tapa es para 6 ejemplares) 


SUS EJEMPLARES DE 


SIN NECESIDAD DE ENCUADERNACION 


Para hacer su pedido, rellene este cupón HOY MISMO 
y envielo а: 

Bravo Murillo, 377 

Tel. 733 96 62 - 28020 MADRID 


Todospectrum 


Por favor envienme tapas para la encuadernación de mis 
ejemplares de TODOSPECTRUM, al precio de 650 pts. más gastos de envio. 


El importe lo abonaré 
G РОЯ CHEQUE О CONTRA REEMBOLSO O CON MI TARJETA DE 
CREDITO O AMERICAN EXPRESS O VISA O INTERBANK 

Número de mi tarjeta: [1] TT] IILI 11 

Fecha de caducidad 

NOMBRE 

DIRECCION 

CIUDAD 

PROVINCIA 


2: PRINT PAPER 2;AT 


6303 IF po>=w3 THEN 


3: PRINT PAPER 2;AT 


6304 IF po>=w4 THEN 


4: PRINT PAPER 2;AT 


6305 IF po>=w5 THEN 


5: PRINT PAPER 2;AT 


6306 IF po>=w6 THEN 


6: PRINT PAPER 2;AT 


6307 IF 
7: PRINT PAPER 2;AT 


po>=w7 THEN 


21,7:52 
LET s3=5*ap 
21,10;s3 
LET 5ѕ4=бжар 
21,13;54 
LET s5=5xap 
21,16;s5 
LET ѕб=5жар 
21, 19;s6 


LET з7=5жар 
21,22;57 
LET 58=5жар 
21,25;58 
LET ѕ9=5жар 


LET f1=5xap1 
21,4:Ғ1 

LET #2=5жар2 
21,732 

LET ҒЗ-5ЖарЗ 
21,10;f3 

LET Ғ4-б5жар4 
21,13;f4 

LET #5=5жар5 
21,16; f5 

LET #6=5жарб 
21,19;#6 

LET #7=5жар7 
21,22;#7 

LET #8=5жар8 
21,25;18 

LET f9=5*xap9 
21,28:Ғ9 


po<w1 AND ы1=7.5 THEN L 


PAPER 6;AT 


Po<w2 AND w2=7.5 THEN L 


PAPER 6;AT 


Po<w3 AND w3=7.5 THEN L 


PAPER 6;AT 


6308 IF po>=w8 THEN 
8: PRINT PAPER 2;AT 
6309 IF po>=w9 THEN 
9: PRINT PAPER 2;AT 21,28;s9 
6311 IF po<w1 THEN 
: PRINT PAPER 6;AT 
6312 IF po<w2 THEN 
3 PRINT PAPER 6;AT 
6313 IF po<w3 THEN 
: PRINT PAPER 6;AT 
6314 IF po<w4 THEN 
PRINT PAPER 6;AT 
6315 IF po<w5 THEN 
: PRINT PAPER 6;AT 
6316 IF po<w6 THEN 
: PRINT PAPER 6;AT 
6317 IF po<w7 THEN 
PRINT PAPER 6;AT 
6318 IF po<w8 THEN 
PRINT PAPER 6;AT 
6319 IF po<w9 THEN 
: PRINT PAPER 6;AT 
6321 IF 
ЕТ f1=1Oxapl: PRINT 
21,431 
6322 IF 
ЕТ #2=10жар2: PRINT 
21.7;f2 
6323 IF 
ЕТ f3=10xap3: PRINT 
21,10;f3 
6324 IF 


po<w4 AND w4=7.5 THEN L 
ET #4=10жар4: PRINT 


PAPER 6;AT 


21,13;f4 
6325 IF po<u5 AND w5=7.5 THEN L 
ЕТ 45-1ОЖар5: PRINT PAPER 6;AT 
21,16;f5 

6326 IF ро<ш6 AND w6=7.5 THEN L 
ET #6=10жарб: PRINT PAPER 6;AT 
21,19;f6 

6327 IF po<w7 AND w7=7.5 THEN L 
ЕТ f7=10xap7: PRINT PAPER 6;AT 


21,22;f7 

6328 IF po<u8 AND и8-7.5 ТНЕЙ L 
ЕТ 48-1ОЖар8: PRINT PAPER 6!AT 
21.25;18 

6329 IF po<w9 AND u9=7.5 THEN L 
ЕТ Ғ9=10жарӘ: PRINT PAPER 6;AT 
21,28;f9 

6330 LET s=81+52+s834+s4+s5+s6+s7+ 
s8+s9 

6333 LET f=f1+f2+f3+f4+f5+f6lf7+ 
f8+f9 

6335 LET t=f-s f 
6340 IF s>f THEN PRINT PAPER 3 
ТАТ 19,4; "МЕ DEBES ";-t;" PTS. "; 
n$ 

6350 IF s<f THEN PRINT PAPER 3 
¿AT 19,4; "ТЕ DEBO ";t;" PTS. "n$ 


6360 IF s=f THEN PRINT PAPER 3 
ЗАТ 19,4;"ESTAMOS EN PAZ. ";п% 
6370 PLOT 0,0: DRAW 255,0: DRAW 
0,175: DRAW -255,0: DRAW 0,-175 
6375 PLOT 0,8: DRAW 255,0 

6380 PRINT #1;АТ 0,0; ІМК 2;"PUL 
SE UNA TECLA PARA CONTINUAR": PA 
USE O: INPUT O 

6390 CLS : GO TO 1500 

6399 STOP 

6400 PRINT PAPER 6;AT 21,4;ap1x 
5 

6401 PRINT PAPER 6:АТ 21,7;ар2ж 
5 

6402 PRINT PAPER 6;AT 21,10;ap3 
*5 

6403 PRINT PAPER 6;AT 21,13;ap4 


PROGRAMAS 


5501 PRINT PAPER 6;AT 21,16;ap5 
es PRINT PAPER 6;AT 21, 19;арб 
Edo PRINT PAPER 6:АТ 21,22;ap7 
ЕСІ PRINT PAPER 6:АТ 21,25;ap8 
hos PRINT PAPER 6;AT 21,28;ap9 


r una puntuacion lo. mas alta pos 
ible o lo mas cercana a las siet 
e y media. Si Vd pasa dicha can 
tidad, !НА PERDIDO!. Si Vd igua 
la su puntuacion а la del ordena 
dor, !САМА EL ORDENADOR!. бі Vd 
supera al ordenador, !САМА VD!. 


¡ADELANTE Y BUENAS CARTAS!!! 


*5 
6500 LET ѕ=(арі+ар2+арЗ+ар4+ар5+ 
ap6+ap7+ap8+ap9)*5: PRINT AT 20, 
Лу*ТЕ DEBO "38%" PIS. "y PLOT 0,0 
DRAW 255,0: DRAW 0,175: DRAW - 
255,0: DRAW 0,-175: PAUSE 0: GO 
TO 1500 
7000 PRINT PAPER 75АТ 1-1,c;"__ 
7010 RETURN 
8860 REM Presentacion Programa 
8865 PAPER O: CLS 
8870 LET a$=" Este programa tr 
ata del conocido juego de cartas 
аа а ЖӨ е ЖЮ AXXAXXKLAS SIETE 
Y MEDI Ax 
Vd, debera ganar a 
1 ordenador tratando de consegui 


8881 LET x=10: LET y=1: LET z=2 


8882 BORDER 2: CLS DIM Ь%(25) 
8883 LET аз-Ь%ға% 
8884 FOR n TO LEN a$ 


8885 LET a$=a$(2 ТО )+CHR$ 32 
8886 PRINT AT x,y; INK 7; PAPER 
3;a$(z ТО 31) 

8887 BEEP .01,20 

8889 NEXT n 

8890 BORDER 4: PAPER 7: INK O: C 
LS 

8900 PRINT INK 2;AT 10,0;" De 
sea volver a leer las ins- trucc 
iones S/N ?" 

8920 PAUSE O 

8940 IF INKEY$="S" OR a$="s" THE 
N GO TO 8870 

8950 RETURN 


| EN BUSCA DEL BETA 
| BASIC PERDIDO 


Quisiera, por un lado, falicitaros 
por la labor que desarrolláis en la 
revista, que me parece de una cali- 
dad y nivel técnico muy elevados, y 
por otra parte, pediros un favor: 
que, si os es posible, me localicéis y 
enviéis (contra reembolso, claro es- 
tá) el programa Beta BASIC (2.* 
Versión) que comentabais en uno 
de vuestros últimos números, ya 
que no me ha sido posible conse- 
guirlo en los sitios donde lo he bus- 
cado, que no han sido pocos (Puer- 
tollano, Ciudad Real, Granada). 

También querría que me infor- 
таѕсіѕ si conocéis algún compila- 
dor Fortran para el Spectrum 48K, 
semejante al de Pascal de Hisoft, 
que ya poseo. En el caso de que 
exista y podáis conseguirlo, ¿po- 
dríais mandármelo igualmente 
contrareembolso? En caso de que 
vosotros no podáis localizármelo 
y/o mandármelo, dadme una direc- 
ción de algún sitio donde lo pue- 
dan tener, pues tampoco lo he visto 
en ninguno de los anuncios comer- 
ciales de la revista. 


Pablo Higueras 
Almadén (C. Real) 


Dirige tus cartas a: 
Todospectrum 
Bravo Murillo, 377, 5.°-A 
28020 Madrid 


No conocemos ningún compila- 
dor de Fortran para Spectrum que se 
haya comercializado en España. El 
Beta BASIC puedes pedirlo a: 


Ventamatic 


Córcega, 89 
08029 Barcelona 


INCOMPATIBILIDAD 
DE CARACTERES 


Tengo una impresora New Print, 
el interface serie/paralelo de Indes- 
comp y el Tasword Two, y no consi- 
go hacer funcionar la impresora 
con el Tasword; alguna vez me ha 
sacado algunos caracteres que no 
se correspondían con los escritos, y 
con el manual no hago nada por- 
que está en inglés y no entiendo na- 
da. Donde lo compré no saben, no 
contestan, y me encuentro un tanto 
colgado. Esta carta está hecha con 
la impresora pero usando el editor 
que publicásteis vosotros, aunque 
me resultra un lio cuadrar el texto 
en pantalla а como me lo saca la im- 
presora. 


Antonio Diaz 
Lérida 


A la hora de comprar algo comple- 
jo de manejar y que vale una cierta 
«pasta», como es una impresora, es 
evidente que no se puede andar uno 
con tonterías. Á no ser que se sepa 
con seguridad lo que se compra y la 
forma en que vamos a utilizarlo, es 
bastante aconsejable siempre el acu- 
dir a una tienda especializada en «са- 
charros» de este tipo, donde nos pue- 
dan asesorar sobre cuáles entre las di- 
versas marcas y modelos que ofrece 
el mercado se acerca más alo que ne- 
cesitamos, así cómo resolvernos los 
problemas que nos surjan a posterio- 
ri (el llamado servicio postventa). 

Parece ser que o no adquiriste la 
impresora en un sitio serio o el sitio 
serio donde la adquiriste es cualquier 
cosa menos serio. Тс aconsejamos 
que insistas en que te busquen allí al- 
gún tipo de arreglo que te permita 
usar ese u otro procesador de textos 
con tu impresora. Nuestras páginas 
quedan siempre abiertas a cualquier 
tipo de acusación pública si siguen 
negándose a hacer nada por tí, en 
cuyo caso tendrás que buscar a al- 
guien que sepa algo de inglés para 
que te ayude con el manual. 


¿TIENE OCHO BITS 
UN BYTE? 


Quisiera hacerles una pregunta 
elemental que probablemente ya 
les habrán hecho: ¿qué es exacta- 
mente un byte?; me explico, cuan- 
do un ordenador con un micro de 
16 bits dicen que tiene, por ejem- 
plo, un Kbyte, ¿tiene 1024 palabras 
de 16 o son éstas de ocho bits? No 
estoy muy seguro, pero creo haber 
leido informaciones contradicto- 
rias al respecto. 


Juan M, Villar 
Mardid 


También nosotros nos hemos en- 
contrado con algunos escritos con- 
tradictorios cuando se toca este te- 
ma, aunque son debidos más a tra- 
ducciones del inglés «poco inteligen- 


tes» que a otra cosa. Hoy por hoy de- 
bemos hablar de byte como un con- 
junto de ocho bits, eso que debería 
haber sido traducido en su día como 
octeto (hubo quien lo hizo) y que 
hoy forma parte del vocabulario de 
cualquier aficionado a la informáti- 
ca. Se suele hablar de «palabra» en un 
ordenador como el conjunto de bits 
que es capaz de manejar su micro- 
procesador dependiendo del lbus de 
datos que utilice. Así las «palabras» 
en el Spectrum serían de un byte, 
mientras que en un ordenador que 
utilice un 16 bits serían de dos bytes. 


GENS Y MONS 
RELOCALIZABLES 


¿Cómo puedo hacer para que el 
GENS y el MONS sean relocaliza- 
bles?, ¿cómo podría hacer para que 
un programa mio sea relocalizable 
si бепе mnemónicos como son JP y 
CALL? 

César Blanco 
Barcelona 


Que nosotros sepamos, el GENS y 
el MONS forman uno de los pocos 
paquetes ensamblador-monitor to- 
talmente relocalizables, efectuándo- 
se esta relocalización cuando los eje- 
cutamos en la dirección de comien- 
zo (para reentrar tras haber vuelto al 
BASIC hay que saltar a esa dirección 
+61 para el GENS y +29 para el 
MONS). 

Puedes relocalizar tus programas 
sin ningún problema si conservas el 
código fuente y utilizas etiquetas en 
todas las llamadas y saltos absolutos 
que incluya; de esta forma bastará 
con ensamblar en la nueva direc- 
ción. Si no usamos etiquetas o no dis- 
ponemos del código fuente la cosa se 
complica, pues habrá que hacerlo «a 
brazo», a no ser que dispongamos de 
un programa (es factible aunque no 
conocemos ninguno para Spectrum) 
que se encargue de seguir todo el flu- 
jo del programa modificando (sólo 
en la primera pasada) los CALLs y 
JumPs con que se encuentre. 


UN AMIGO DE QL 


En primer lugar quiero agradece- 
ros la labor que hacéis en cuanto a 
la difusión y mejor conocimiento 
del ordenador olvidado de Sin- 
clair, el QL, ya que vuestra revista 
es el único vínculo de unión entre 
la gran mayoría de los usuarios del 
QL,. que andan sin conocer a nadie 
y sin nadic que les cambie progra- 
mas, ideas, etc. 

Hace algún tiempo, en la revista 
ZX se publicó un anuncio de un 
usuario de QL, pero el escaso eco 
entre los que tienen un QL fue más 
que evidente: sólo 22 personas de 
toda Espana (entre ellas yo) contes- 
taron a su llamada. Por ello me diri- 
jo a vuestra revista para ver si así 
conseguimos contactar con más 
usuarios del QL. Mi dirección es: 


Manuel José Garrido 

San Vicente de Paul, 25, pta. 36 
46019 Valencia 

Tel. (97) 365 63 96 


Sin otro particular, y esperando 
que continuéis publicando el su- 
plemento QL en vuetra revista, se 
despide un lector vuestro. 


Manuel J. Garrido 
Valencia 


Aunque quizá deberías haber diri- 
gido tu carta a nuestra sección de 
anuncios gratuitos, «el Corcho», nos 
alegra ver que hay QLmaníacos co- 
mo tú con ganas de que a su ordena- 
dor no le salgan telarañas. Nos ale- 
graríamos muchos más aún si fueran 
miles las cartas que te llegaran de 
otros usuarios de QL dispuestos a 
«mover» su máquina. 


AMPLIACION DE 
MEMORIA 


Tengo un Spectrum 16K y qui- 
siera ampliarlo a 48K. Me han di- 
cho que existe una ampliación de 
memoria externa que es muy senci- 
Ша de conectar y que no anula la ga- 


rantía del ordenador. ¿Esto es así?, 
¿cuál es su precio? 


Raul Martínez 
Gijón (Asturias) 


La ampliación de memoria exter- 
na es, efectivamente, muy sencilla de 
conectar, pues no es necesario des- 
montar el ordenador para hacerlo, si- 
no que basta con «pincharla» al bus 
de expansión como un periférico 
más. Como contrapunto está el que 
pueda molestar el llevarla «colgan- 
do» todo el tiempo, además de que la 
conexión sufre un tanto al estar ex- 
puesta a los movimientos del bloque. 
Su precio está alrededor de las 8.000 
pesetas. 


SOBRE LOS 
REGISTROS IX E IY 


¿Podemos (en código máquina) 
manejar directamente los registros, 
IX e IY? Y si no, ¿para qué sirven? 
¿Cómo se usan las instrucciones 
BIT, CCF, DI, IND, LDD, NEG, 
NOP, RES y SET? 

Javier Burgués 
Lérida 


Puedes utilizar los registros IX e IY 
con toda comodidad en tus progra- 
mas en ensamblador, admitirán to- 
das las instrucciones que sueles utili- 
zar con el par HL, pero cuando direc- 
cionen alguna posición de memoria, 
deberán ir seguidos de un byte en 
complemento a dos. Por ejemplo, | 
puedes usar perfectamente LD A, 
(1Х+3). Has de tener más cuidado 
con el par IY, pues es utilizado por el 
operativo para indexar las variables 
del sistema. 

En cuanto a la «ristra» de instruc- 
ciones sobre las que pides consejo, es 
evidente que no es ésta la sección 
adecuada para tan extenso tema. Te 
recomendamos que sigas la serie 
«Aprendiendo lenguaje máquina» en 
la que si по han sido ya vistas esas 
instrucciones lo serán pronto. 


Vendo programas de QL, co- 
merciales, juegos y utilidades, 
al precio de 1.100-1.500 ptas., 
incluyendo microdrive. Inter- 


face conector de QL а impre- 


sora paralelo. Interface conec- 
tor Spectrum a paralelo. Ca- 
ble extensor paralelo. Carro 
de tracción para impresora 
Smith-Corona y bandeja de 
papel para la misma. Jacques 
Bulchand. Avda. Primero de 
Mayo, 6. 35002 Las Palmas. 
Tel. (928) 369862. 


Vendo calculadora de bolsi- 
llo Casio PB-100 programable 
en BASIC, con instrucciones 
en castellano, ampliación de 
memoria, interface para cas- 
sette y varios programas de 
utilidades. Todo 10.000 ptas. 
Francisco Martinez. Vila- 
mari, 33, pral. 1.*. 08015 Bar- 
celona. Tel. (93) 2241113. 


Vendo impresora Seikosha 
GP-500 a muy buen precio. 
Daniel Sáez. Tel. (93) 
2460761. 


Vendo impresora GP-50S 
con muy poco uso y práctica- 
mente nueva, con todos los 
accesorios y embalaje origi- 
nal, con un rollo de papel y va- 
rias cintas de juegos. Todo por 
sólo 18.000 ptas. (negocia- 
bles). Escribir a José Antonio 
Rodriguez Ovalle. Apdo. Co- 
rreos 28. 04080 Villafranca del 
Bierzo (León). 


Deseo contactar con usua- 
rios del QL para todo tipo de 
intercambio de programas, 
publicaciones, etc. Dispongo 
de abundante software y hard- 
ware. Albert Busoms. Tel. 
(93) 2130153. 


QL: todos los programas. Pas- 
cal, Fortran-77, compilador 
SuperBASIC, lenguaje C, Nó- 
minas, utilidades, juegos, co- 
piadores, importados,... Ven- 
do, compro o cambio. Juan 
Carlos Ordóñez. Ferroviarios, 
11, 3.9 C. 28026 Madrid. Tel. 
(91) 4762539. 


¿Quieres un Spectrum 48K, 
cinta de demostración Hori- 
zontes, manual en castellano, 
joystick con interface Kemps- 
ton, originales de Astrodata 
3000, Hypersports, Diverti- 
mentos, 3d monstruos y va- 
rias cintas con más de 100 pro- 
gramas comerciales? Pues só- 
lo te costará 20,000 ptas. Asier 
Burgaleta. Añorga Txiki, 9,2.% 
C. 20009 Donostia. 


Catálogo de Software 
para 


ordenadores 
personales 


Todo el Software disponible en el 
mercado reunido en un catálogo 


de 800 fichas 


12 ENTREGA 
550 FICHAS 
+ FICHERO 


Resto en dos entregas 
trimestrales de 150 fichas 
cada una 


COPIE O RECORTE ESTE CUPON DE PEDIDO 
y A >. шін" 
| CUPON DE PEDIDO р El importe lo abonaré POR CHEQUE O CONTRA REEMBOLSO O CON MITI 
І TARJETA DE CREDITO O m 
SOLICITE HOY MISMO 
SOLGTE НО MEMO EL Cargue 8.000 ptas. a mi tarjeta American Express O Visa O Interbank O Ï 


І CATALOGO DE SOFTWARE A: Ï 


І - ----- | Número de mi tarjeta [1 ] І 
АЕ | 
І Bravo Murillo, 377, 52 A І SALLE і 
| 28020 MADRID Ï сорар = l 
i H PROVINCIA TELEFONO І 


O EN CONCESIONARIOS IBM 
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LA GUIA LOTUS PARA UTILIZAR SYMPHONY 
es un libro que le enseñará paso a paso, y de 
una forma muy práctica cómo utilizar este 
programa. 


LA GUIA LOTUS contiene: 
— Cómo crear y manejar ficheros 


— Descripción detallada de las facilidades 
que ofrecen las ventanas de SYMPHONY. 


— Apéndice que cubre las aplicaciones adi- 
cionales que van incluidas en el programa. 


CARACTERISTICAS: 
* Páginas: 443 


* Papel offset: 112 grs. - Un índice detallado y un vocabulario don- 
+ Tamaño: 182 х 232 mm. de fácilmente podrá encontrar cualquier 
* Encuadernación: Rústica-cosido tema que necesite. 


El complemento indispensable para el manual de SYMPHONY 


OFERTA DE LANZAMIENTO 4.500 PTAS. (IVA INCLUIDO) 


Recorte y envíe HOY MISMO este cupón a: infodis, 5.2. с/ Bravo Murillo, 377 - 28020 MADRID 
CUPON DE PEDIDO 


SI. Envienme el libro «LA GUIA LOTUS PARA UTILIZAR SYMPHONY» al 
precio de 4.500 PTAS. EL IMPORTE lo abonaré: 


TAMBIEN Con tarjeta de crédito VISA O INTERBANK O AMERICAN EXPRESS O 
LO PUEDE CONTRAREEMBOLSO O ADJUNTO CHEQUE O 

EN A Número de mi tarjeta A ы: 
HABITUAL Fecha de caducidad _ 2 — =. Fita, zie 


NOMBRE 
DIRECCION 
CIUDAD — 
PROVINCIA 


DP Lu 
TELEFONO 


